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OCT 75 CONSOLE TERMINAL NOW ECHOES “S$” FOR AN ALTMODE. 


ocT 75 re TAB CODE FROM THE CONSOL 
TERMI ROUT] y WILL NOW ALWAYS SIMULATE 
A TAB WITH SPACES 


“ .SBTTL REVISION HISTORY 
ae 
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35 : aan THAT IF ITI S0 Me frances 
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57 : NOV 75 CHANGED CONSOLE TERMINAL AND PRINTER HANDLERS SO 
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ee ; SERVIC NG. THIS FUNCTION WAS NOT 

&7 : 

68 ; NOV 75 “¢ RIND TIME HOUSEKEEPING, 

: i POPES eR SOS ETE 

7} : ‘ 
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;REVISION “6” 
ELE REEREEE ERLE EERE EEE EERE REESE EEE EEE E SEES EEE EE EEE 
MACY11: 
DTECA? , DTECA? CRF : SYM/DOC=DTECA?.P11 
OR FOR MIMIC, OTECM?,DTECM?/CRF:SYM/EQ:MIMIC/DOC=DTECA?.Pil 


NOTE: MUSED CONDITIONAL CODE EN THE LISTING: 
reeset mtg: 
ee 
I 


0; THMPG. MAP+DTECA? , DTESA?/E 
IMIC: 


NB: 0, RXNPG. Neer CA?; DTEYA?/E 
:0, RBMPG. MAP+DTECA? ; DTESA? /E 
= RKMPG.BIN/B:0, RKMPG. MAP+DTECM? , DTE1A? , DTMGA? , XXXX/E 
FOR RK11 THIS RESULTS IN A S78 BLOCK DISK. 
WHERE XXXX IS AN OPTIONAL DEVICE ROUTINE. 
THE LINK MAPS, WHICH ARE IN MAINDEC DOCUMENT 8 


eS aagaa3 


RK1 


11-DTEMA-?, PROVIDE THE ACTUAL MEMORY ADDRESSES 
OF VeRtous MODULES IN EACH VERSION OF THE 


FOR PAPER TAPE OUTPUT: 
pues SPE BBV 
PUNCH TMMPG.BIN/FILE: 

N/F : 
e NF e 


See IAI 


SEQ OeS6 
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| DTECAB.P11 MPG EXEC GLOBALS AND EQUATES 

169 .SBTTL MPG EXEC GLOBALS AND EQUATES 

Po) a 
172 .DSABL GBL 

| 173 LIIF OF NLIST, .NLIST CND 

| Ps :NOTE: Te SIZE OF THE LINKER OUTPUT OF ANY VERSION OF THE 
128 : EXECUTIVE CANNOT EXCEED OCTAL 20000 BYTES. 

4 $ 

De. Ee ; 
173 EXTERNAL GLOBAL NAMES 

| 181 .GLOBL CFTCHI, CSAVEI, DIRBLK,EXCID 

183 
184 s INTERNAL GLOBAL NAMES 
186 .GLOBL BLKWRT, BMOVE 
iss GtOet Bur CAROUT CLRBUF CREHAN CAL CRPNAP 
188 -GLOBL DATUPK, DELAY, DELERR, DELFIL 
183 ae PLT "IT cS aes LSTFLG, MAPBUF 
iat “er MS re’ gittgen 
192 “GLOBL PAKNAM PIPFLG, READGK RSTO4, SAVOY 
133 ‘& trite Th KIM, WRTELK 
1% “Hat SHAPGE SHB SPA? STPAENL. STXNAM, STYPNN | 
197 
198 ooo0c0 RO =70 
i . 3 : 
201 R3 = | 
202 OO0004 RY =%4 | 
203 0000S RS =45 
204 000006 R& =%6 | 
205 000006 SP = 
206 000007 PC =47 
207 001200 STACK =1200 | 
= | 
210 oo0020 CTPRIO = BIT DEF. FOR USER PROG FLOWS 
211 000040 SETDED =40 
313 000001 =} sBIT DEF. FOR MPG SYSTEM FLGWD | 
214 000040 UNIMAP =40 
215 002000 CUSPGR = 
Sie 004000 Int =4000 | 
217 010000 ENTRLO =10000 
218 020000 TUDED = 
219 040000 CRUDED =40000 | 
220 100000 CTROBP =100000 
2p2 177572 MMMRO -=177572 | 
223 172516 MMMR3  =172516 


SEQ 0256 
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-CSECT LOADER 
THE CTED DEVICE LOADER RESIDES IN THIS 
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000000’ 
LOC600: 
001 
000 
012706 001200 EXECST: 
004567 000016’ 
016900 OOO4SE 
016701 OO0446 
60001 
010167 o00022 
046524 
MPGID: 
037477 
MPGADR: 
EFMSZ: 
000 
012700 LMPGIN: 
rset - ESGADR: 
Beerot © BoDddS 
012702 
000000 ESGCNT: 
012021 10S: 
005302 
001375 
BiE70B BOOSeo 
012702 
pononn POSADJ: 
lll 
Soe? ocss24 LMPGIM: 
eva LMPGDE: 


OeSi22 O4444O ISUFM: 
043125 O46440 
043040 051117 


ALL_MPG 
INITIAL 
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CUTIVES 
ENTRY 
.SBTTL HOUSEKEEPING EXTENSION & INITIAL ENTRY 
-CSECT EXEC 


; INITIAL ENTRY AND HOUSEKEEPING EXTENSION 


.IF DOF MIMIC 

a DISKWR :GO TO DISK CREATE 

MOV aSTACK, R& ;SET UP STACK POINTER 

JSR RS, EL THKP -GO DO 1 TIME HOUSEKEEPING 


IF NDF 


hes 


;GET ADR OF WHERE MPG WILL GO 
1 ;GET END OF MEM ADR 


RO,RI *CALC AMNT OF MEM AFTER THE EXEC 
R1 “STORE IT IN LINK INFO 

#” tM, (RO)+ :STORE MPG’S FILE NAME WHICH 
(PC)4, (RO)+ *IS *TMGA??’ OR "TMMA??’ 

/GA/ 

#"?? (RO) 


a 


2 i ae oe 


(PC)+,RO :GET STORED ADR OF INTERFACE ADR’S 
TRI ;SET UP ADR IN MPG FOR THEM 
(PC)+,Re2 ;GET 8 OF ADR’S STORED 
(RO)+, (R1)+ ;MOVE INTERFACE ADR TO MPG 
Re *DECR COUNT 
10 :DONE ALL? (Y,N-10$) 
*R1 IS NOW POINTING AT MPG’S 
‘ENTRY POINT 
BSTACK. Rb “SET UP STACK ADR T SURE 
MOV ENDMEM :SET UP OF MEM 
MOV (PC)+,Re -SET UP _MPG’S POSITION ADJ FACTOR 
.WORD O + MAY BE CHANGED IF T 
IMP (RL) GO TO MPG 
JSR RS, MES ; ISSUE INSUFF MEM ERR MSG 
-WORD  ISUFM 
HALT sERROR DURING MPG LOAD 
BR EXECST :GO TRY AGAIN 


-ASCIZ /#ER* INSUF MEM FOR MPG/<015><Ol2> 


SEQ 0260 


ae a + ee 


SEQ 0261 
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| DTECAB.P11 MPG EXEC CONSTANTS & BUFFER AREAS 
| 368 .SBTTL MPG EXEC CONSTANTS & BUFFER AREAS 
| 379 
| Sat * 900000 NOMEN: . ; STORAGE 
| , Y: ‘HOR iNoBey"s onTe 
37g Daoive” Gadule: Ss MPGBGN ;MPG’S MEM S 
| 375 000000 = 0 DATA THAT WILL BE TAILORED 
| 378 001144’ SBUF: .WORD BUF ADDRESSES NEEDED BY HANDLERS 
378 001146; SBUF2: :WORD BUF #2 
a3 See: Buc Bibi HS Real 
381 000744" SMBUF: [WORD  MBUF 
| 382 000754’ SMMAP: :WORD MMAP 
| 383 o00s24’ STXNAM: :WORD  TXNAM 
385 900512" 001 STKADR: . TACK 
| 386 O00 1° 5b0 LSTELG BYE 3 ;DIREC ToRY “Batt Re ape 
nNNs 1S’ = ; « 
| 333 Boreie’ bon BRIFLG: “BYTE PREC e OR PRRTR Pre 
389 * 900 “BYTE 0 
391 oco000 CHKSUM: . WD STORAGE 
BS pmo: oma ME He OPM AR 
394 000524 000 ### 000  ## 000 TXNAM: BYTE 0,0,0,0,0,0 os FILENAME STORAGE 
000S27" 4««000-si(‘ié‘ikSt*«é«éOD 
395 000532’ 000 000  ### O00 TXEXT: .BYTE 0,0,G | 
3 000536’ EVEN | 
398 000536’ 000006 REALNM: .BLKB 6 FILENAME OF FILE ON A MATCH | 
400 oo0s44’ 000100 MAPBUF: .BLKW 64 :MAP BUFFER | 
4uO2 000744’ 000004 MBUF: .BLKW 4 ANOTHER MAP BUFFER 
403 000754’ 000074 MMAP:  ‘BLKW 60 
WOE 
407 01144" BUF MAIN READ - WRITE BUFFER 
411 : THIS SUFFER AREA (256 WORDS) IS INITIALLY OCCUPIED BY ONE 
412 : TIME HOUSEKEEPING R’S AND MESSAGES. THE FOLLOWING CODE AND 
| 
| 


a er oD ee ee 
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OTECAB.Pil TEMPORARY ONE, TIME HOUSEKEEPING S/R’S 
iis -SBTTL TEMPORARY ONE TIME HOUSEKEEPING S/R’S 


ee ee 


1 $ KRHLEELLEKRELESE 
4 : : ASCII TO BINARY CONVERSION ROUTINE 
ee : JSR PC, ATOI S/R CALL 
yay : v AT “EKBPTR” AS INPUT DATA ADR 
48s RE CONTAINS RESET UPON Exit 
ie? BHEHEHEHEHHEHEE 
429 oo1 uy" 7 003546 ATOI: JSR RY, SAVOY ;SAVE WORK REG’S 
430 001150" CLR R2 *CLEAR RESULT REG 
431 001152’ 016700 001312’ MOV EKBPTR, RO -GET ASCII DATA ADR 
432 B01 15 1 10S: nov (RO)+.R3 GET _ASCI 
433 001160’ 000040 R3, #40 -IS ITA ? 
434 001164" 001 BEQ 10$ :N Y=10$ 
435 001166" 1 000060 20S: SUB #’°0,R3 CONVERT IT TO BINARY 
436 001172’ 10041 I 30$ *LESS THAN ASCII 0? (N, Y-30S) 
437 OOLIZA: 120327 000011 CHP R3, #9 ; GREATER THAN ASCII 9? 
= ? . = 
4 oot 02’ Mae Ba gos + Nin T RONNING TOTAL BY 10 
440 001204’ 060203 ALO R2,R3 “AND INCLUDE NEW DIGIT’S VALUE 
441 oa! ; * 006302 ASL R2 
’ Oo Ne 

uu BbiSte* pesos Abb ORS Re 
444 001214" 11 MOVB (RO)+,R3 ;GET NXT ASCII CHAR 
raed 1216" BR GO CHECK 

1220’ 30$: DEC RO *BACK UP DATA PNTR 
mal Oo12e5" SE, pone Hoy UBT Acepy tBTORE AesuLT oN STACK 
449 001232” eat, 72 JSR PC’ RSTO4 Brot bRe REE'S 
#50 001236’ 000207 RTS PC “EXIT IN-LINE 
452 
2 3 LELLESRELAE EES 
He * READ AND CONVERT OCTAL ASCII TO BINARY S/R 
457 : JSR PC, OATOB S/R CALL 
438 BR LABEL EXECUTED IF A DATA ERROR 
460 : ON EXIT: 
461 : RO = 0 = NO DATA RECEIVED 
Hee : Rl = DATA RECEIVED IN BINARY 
ee : ERESELLEKALEYSLE 
466 001240’ 012700 001314’ OATOB: MOV #EKYBUF , RO ;SET UP REL ADR OF 
467 001244’ 162700 O001260° SUB #5$, RO ‘KEYBOARD BUFFER 
468 001250’ 010067 OO0004 MOV RO, 5$ 
469 001254’ 004S67 005644 JSR RS’CTRD s ISSUE READ FOR DATA 
470 001260’ 000000 cs: LWORD © XXKX 
471 001262’ 000025 -WORD 21. 


-- -—_ 


eee ee 
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DTECAB.P11 TEMPORARY ONE TIME HOUSEKEEPING S/R’S 


172 001264’ 005000 CLR RO RESET DATA FND riAG 
001266’ 1 CLR Ri ‘CLEAR ACCUM REC 
474 001270’ Ol2702 001314’ MOV #EKYBUF , R2 s INITIALIZE READ DATA PNTR 
475 001274’ 1le203 10$:  MOVB (Re) R3 TA CHAR 
4 oo1e76° 162703 000040 CMPBs«840,,R3 iI an A SPACE? 
478 QOLS04" leer 000015 20s: CNPB HOLS, RS iTS iT a CR? 
479 001310’ 001420 BEQ 408 : *N.Y=4 
480 001312’ 000012 CMPB  =s-«- #012, R3 -15 IT AL/F? 
481 001316’ athe BEQ 40S N Y-40$ 
482 001320’ 162703 O00060 360,R3 CHAR A BINARY VALUE 
483 001324” {ove BMI BOS “LESS THAN ASCII 0? (N, Y-80S) 
484 00132" 000007 CMP R3, #07 ;GREATER T HAN 7? 
48S 001332’ 101015 BHI go$ *N. Y-80$ 
486 001334’ 005200 INC RO iat pate FND FLAG 
W872 001335" 006301 RSL RI ANY PREV CHAR’S BY 8 
aes Dole Open! at OL 
ual OoLaue’ 112203 Rove RRBOS RG Ort NEXT CHAR “nn 
492 roe hoarse BR 20s ’ *GO PROCESS IT 
493 001352’ 020127 000377 40S: CMP Ri, #377 *VALUE TOO LARGE? 
494 001355’ 101003 BHI go$ :N, Y-80S 
495 001360’ 6 oo0002 ADD #2, (SP) *SET UP NORMAL RET POINT 
i 496 001364" 000207 SOS: RTS PC “EXIT 
| 97 001365" 004567 O04262 80$: JSR RS, MES ISSUE ERROR MSG 
| 498 001372’ 001725’ .WORD INVDMG 
| 499 001374’ 000773 0$ RETURN FOR ERROR EXIT 
/  §00 001 .IF DF MIMIC 
ep 
ay 5 EERE 
| 505 : OCTAL BINARY TO ASCII S/R 
| 507 : JSR PC, OBTOA S/R CALL 
'  §09 : Rl = BINARY WORD TO CONVERT 
510 : R2 = ADR TO STORE 6 ASCII DIGITS 
pil : DESTROYS RO,R1,R2,R3 
e13 erititi titi ttt t 
cis OBTOA: CLR RO ;CLEAR ACCUM RE 
516 MOV #6, R3 *SET UP DIGIT CNT 
517 BR 20$ :G0 DO BIT 15 
518 10$: CLR RO “CLEAR ACCUM RE 
519 ROL Ri ‘SHIFT 3 BITS INTO RO 
520 ROL RO 
521 ROL Ri 
S22 ROL. RO | 
523 20$: ROL Ri 
5o4 ROL RO 
52S BIS #60,R0 MAKE CHAR ASCII 
526 MOVB «RO, (R2)+ STORE IT IN OUTPUT AREA 
527 DEC R3 ‘DECR DIGIT CNT 
| 
! 


en a ee ee a ee ee 
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DTECAB.P11 TEMPORARY ONE TIME HOUSEKEEPING S/R’S 

528 BNE 198 DONE ALL? (Y,N-10S) 
T C EXIT IN-LINE. 

|  §39 000 -ENOC 
531 
532 
eae s SXLKEEKLRSRRRER 
S35 : CHECK KEYBOARD REPLY S/R 
537 : JSR PC, CKRPLY S/R 
538 : BR LABEL EXECUTED IF INV DATA 
539 : BR LABEL EXECU UTED IF Y, Y, CR, OR LF 
eu ™e 

| te HEHEHE HHH 

| S44 001376’ 012702 001314’ CKRPLY: MOV 8EKYBUF , Re j INITIALIZE READ DATA POINTER 
54S 001402’ 112203 10$: MOVB (Re)+,R3 -GET DATA BYTE 

| §46 OO14O4’ 122703 OO0040 CMPB = s«8#40,,R3 1S IT A SPACE? 

|  &uz 001410" 001774 BEQ 10$ *N, Y-10$ 

| $48 001412’ 122703 000015 CMPB  =s-s« #015, R3 i15 IT A C/R? 
S49 001416’ 001413 BEQ 208 ?N Y-20$ 
SSO 001420’ jee703 000012 CMPB =-« #012, R3 :15 IT AL/F? 
551 001424" 001410 BEQ 205 ?N. Y= 

i  §52 001426’ 122703 000131 CMPBs8’ Y, RB 718 IT A “Y"? 

| 6553 001432" 001405 BEQ 20S :N. Y-20$ 

' §54 001434’ 122703 000116 CMPB so #’N,R3 :15 IT AN “N"? 

'  §5S5 001440" 001004 BNE 30S’ :Y N= 
556 01442’ 062716 o0000e2 ADD #2, (SP) :BYPASS SECOND BR 
557 001446’ 062716 00002 20$: ADD #2) (SP) :BYPASS FIRST BR 
558 0014S2’ 000207 30$: RTS PC’ EXIT 
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; OTECAB.P1L TEMPORARY one Tine HOUSEKEEPING S$ {Bence AREA 
a -SBTTL TEMPORARY ONE TIME HOUSEKEEPING MESSAGE STORAGE AREA 


EDERNG: .ASCIZ /#ER# INV DATE/ 


ae 
SSsssssssss 
meade 


0 = 2 bb ph bh ee 





1 EDMSG: .ASCIZ <O1S><O12>/7DATE (DD-MeM-YY)/<01S> <O12> #7 
sf] 
| , 16 CONIMG: .ASCII <01S><012>"CONS TERMINAL CONSTANTS: *<015><Os2><015> «O12» 
’ 7503 
3 rf 
SES oot ’ 4 JASCIZ ‘FILL AFTER: O12 7° 
001574" 
es 
Sb 001605" 4 CONONG: .ASCIZ "FILL WITH: 0007 ' 
iy 
1 , 
S67 OOLESS 14 CONSMG: .ASCIZ "FILL COUNT: O02 / * 
OO16NG’ ge0062 
St8 oaLEsy” & CONHNG: .ASCIZ '?CONVERT LOWER CASE TO UPPER (Y/N) 7 * 
001672" 
is 2 
1714" I 
rivet | 
S69 001725’ O20052 INVOMG: .ASCIZ ‘'#ER* INV DATA’<O1S><Ol2> 
O01 732" O40S04 
s7o Bato raat LDUREQ: .ASCIZ <O15><012>" 7LOAD/SAVE/FETCH DEV UNIT 8 7° 
001752" 101 
rite Sohise | 
° ! 
001774" 021440 | 
S71 ’ O42523 USEMM: .ASCIZ <015><012>°°USE MEM MGNNT (Y/N) / ° | 
oge014" O4G44O 
Ooens0° ero | 
Wier at, ? j 
S72 02040’ 052503 EXCIDT: .ASCIZ ° EXECUTIVE FOR MPG'<O1S><O12> | 
002046’ 043040 
002054" 043520 ; 
002062" ! 
73 LEVEN 
74 "3 BUF +512. 
675 oo2144" BUFEND: ‘WORD 0 


ee a a eo ee a ee a ee Sen ee 


t 
' 
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oz 
a 


SERRE MGR GTERERIT 


4 004 4 
ee jee 
ee ee ce oe ce eo 


egteng G5du8 


"SESSRSBEERE ABE HERBEARELE SESSGSNG HEBHEE | 


O—40—-40—-4 4-4 4 O00 


Bee 





eases Pc 


agee 
ee 


Ss 


ZgESSSSSSRE 0 4 4 4 P44 0 4 0 
on 


é 7 
SF 


Bi 


i 


8 


-SBTTL INPUT DEVICE DESCRIPTOR BLOCK (008) 


;XDHSU DEVICE HANDLER SET UP ADDRESS 
3 XWCTR Toe OPEN FLAG 


FILE 
eva oF ibd PANS ky 
SVT Heed be I : 1H REOeD 2 WORDS ) 

(not, USED 


TION DATE IN DOS FORMAT 


[ao | es | oe ) OOOCO00O Ooooo0o oO 
o 





iX1STBK at OF FILE'S FIRST DATA BLK 
iM STK ‘Last DATA BLOCK WRITTEN 
ie - 3 ROUT INE 
sORT 3 z 1ROUTINE 
;OLT Ss INE 
ER | “ENTER (CREATED 
G Sr Le oF (Seams ROUTINE 
0 ;XSV ORIvER INE 
0 iXON NTS IVE (UNIT) NUMBER 
J een OF DEVICE'S COMMAND REGISTER 
0 :XBA CURRENT BUS (MEMORY) ADDRESS 
4 teal BLOCK NUMBER 
pe 
| iB se FIRST DYRECTORY BLK 8 
0 : XNB LAST BLOCK 8 ALLOCATED (NE } 
0,00 XXNAM  FILE’S NAME IN ASCII (9 CHAR’S) 
0'0'0 





ee a a + + ee 


er re mene ae en me | ee re: err. <r re gS pe] 


a me a is ee ne ne ee pigk ner els Ms ele to a 


a2 
iy 


OUTPUT DEVICE DESCRIPTOR BLOCK (DDB). 


toe 7 COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 8-1 SEQ C268 
-SBTTL OUTPUT DEVICE DESCRIPTOR BLOCK (DDB). 


my Bae 






eS 
628 
ey ‘iro 
631 . 

a 

| ge ; 

| 63% 

| 637 188 0 IN (2 WORDS) 
638 ; 

b34 : i XV T TE IN FORMAT 

a O1STEK: “Word : ILE’ ie FIRST DATA BLK 

/ 6M OLS Prk a. wae: ah TA SLE cK WRITTEN 
Bm OSVUPT: : WORD ;XSVUPT (NO 
ue QUBOOT: . WORD : THES ROUT INE 
GN? , QUDRT:  < WORD ree “a gore 
fe) Gere: ee ag ae 
: : -WORD O ANE REGS By tS 
S50" an res prs . “Heit Te ate ! 
ps5 me352" OUTDRY: -WORD 0 a: (RIT) MOPBER 
657 002354’ QUTCH: .WORD 0 > XCM OF DEVICE’S COMMAND REGISTER | 
658 002356’ OUTMC: :WORD O * XWC COUNT 
B59 heed OUTER: “WORD «OO : XBA CURRENT BUS (MEMORY) ADDRESS | 
ees oe cuToT: -wRD TD RDRRENT BbomaNnUcebe 
bb * (900000 QUPRC: :WORD 0 5 XRD READ COMRAND CODE 
es ieee: fae tei we fk EU OPER.S | 
ie Goer San a nS AN ng | 
668 pSs0p" 000 000 000 ee: “BYT 5 0,0 * XXNAM ILE’S NAME IN ASCII (9 CHAR’S) | 
669 O0ce403’ 000 000 000 “BYTE 0;0°0 
670 O0c406’ 000 000 co “BYTE 0'0:0 
671 002412’ “EVEN 
672 002412’ DDBEND: | 

| 
| 


| MAINTDEC-11-DTECA-B 
' DTECAB.P11 


674 
675 


BERS RR EERE dal te 


631 

63e 

633 

&o4 

69S 

656 

be Gee: josre? 
& ° 7 
& . 1116 
oo Ode4e4” GO4767 
fe Gee” S127 
2 Res: fee 
707 OOe¥54* 001370 
7g Gey’ Oni7e7 
it Ree Oates 
gis 0024 » pees 
714 pee 1002 
715 OG2SO4’ 105267 
71 10’ 7 
713 Gieslw’ Sines 
719 O0eSe4’ 1 1g0e? 
720 OUeSe%" 060367 
fel toes’ Oia? 
2, 002540’ 105767 
7s Goes" late 
7’ O02S5e’ 105767 
723 002564’ 001003 


COMMON SECTION FOR ie” EXECUTIVES 


FILE ROUTINES REQUIRED FOR 
-SBTTL FILE ROUTINES REQUIRED FOR MPG 


;512 BYTE DATA BLOCK FORMAT 
;NEXT BLOCK 8 (NOT 


;JSR «RS, GET 
; - WORD ERRADR-. 
8. XXXX 
;-WORD XXXX 
ssy GET: JSR GSV 
BS i ie 
BNE 
001750 10$: JSR PC. ERDLNK 
Be 
001146’ MOV +2,R0 
000340 20$:  ¢LR EUSRCT 
176052 CLR CHKSUM 
000270 ISR PC, EGETBY 
DEC R3 
BNE 20S 
000260 JSR PC, EGETBY 
TSTB ORG 
BNE 20S 
goce2e ISR PC, EGETWD 
SUB 86;R3 
000270 MOV R3; EDTACT 
BNE 30$ 
ime os: J BE Ean 
000254 40$: MOV RO, EUSRSA 
SOS: MOVB (RO)+,R3 
175766 ADD R3, CHKSUM 
000234 DEC EDTACT 
65S 
175754 TSTB CHKSUM 
BEQ ss 
003672 IMP CKSMER 
000227 SS$: TSTB  ERDEOF 
002144" 3 BBS sBUF +512 
BNE o$ 


MACYL1 27(732) 


i ee te ee |. es a ee ee | ee eee ea 
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T_AOR 
res AUR T_ADR ON RETURN 
BYTE COUNT ON RETURN 


Pat REG’S RO-RS 
BLOCK FLAG SET’ 


3 
eA RE B BIN vnc WORD? 
S, THER BYTE (SYNC $ WORD OF 1) 
it Ry O OF A SYNC 
TA | 


AS USER START ADR 
obk NamonTe 


CKSUM BYTES (Y,N-65$) 
THE CHECK SUM CORRECT? 


T CKECK SUM ERROR ! 
1S THIS THE EOF BLK? 


IN 
:at yr RP eno OF THE BUFFER? 
Y,N-60$ 


: 
z 
ag 3 8 
3 


ae 
5 


RES ISIIIII IAT SEVERE Teas sea oes sae seeaReS : 


002714" 


COMMON 
FILE ROUTINES REQUIRED FOR 
1 








SECTION FOR oe MPG EXECUTIVES 


MACY11 27(732) 


000212 CLR EPARBK 
000176 60S: HOV 8 ENXDTA 
cay “ie cre Ro. sOUF +512. 
001146’ 000154 MOV sree DeOTA 
000156 70$:  INCB 
758: pe 
80S: MOV TKADR, Re 
+ 
MOV EUGROT’ (Reds 
RTS RS 
000112 85$: MOV ENXDTA, RO 
001146” CMP RO, SBUF +2 
BNE 20$ 
001S02 J PC EROLNK 
000076 O00066 ADD EUSRCT, EMSADR 
000070 CLR 
BR 
o00022 EGETWD: JSR PC, EGETBY 
MOVB = R33, ( 
ETMP: -WORD O 
000012 JSR PC, EGETBY 
177767 MOVB =- RB ETMP+1 
177762 MOV ETHP 
RTS PC 
002144’ EGETBY cH RO, s8UF +512 
001424 JSR PC, EROLNK 
EGERET: BR EXERE 
001146’ MOV SBUF +2, RO 
EGETKG: MOVB (RO)+,R3 
175530 ADD R3, CHKSUM 
RTS PC 
EDTACT: .WORD 0 
EMSADR: .WORD 0 
EucRSa: “HORS 0 
EUSRCT: .WORD 0 
EPARBK: .BYTE 0 
ERDEOF: .BYTE 0 


24-SEP-76 13:56 PAGE 9-1 


;RESET PARTIAL BLOCK FLG 


: T 
BAe ERA POINTER AS NEXT DATA ADR 
FOR EXIT 


. 1 TA COUNT 

foo 1 To USER Dan coun 

DATA ADR TO START OF BUF 
738 PARTIAL BLOCK FLAG 

iu . TA CNT = 0? 
eae 
: BBA T AOR 
iat TA START a IN LINK INFO 
H OUNT 


WITH DATA 
RETURN TO THE USER 


sGET NEXT DATA ADR 
t1§ IT AT THE START OF THE BUF? 


TH STORED BYTES 
IT IN-LINE 


;EXHAUSTED DATA BLOCK” 
; GETKG 


OCK 
AD? (N, Y-EXERET) 
A AOR 


FROM BLOCK 
;ADO_ IT INTO CHECK SUM 


: XT 
ERROR ON 

; DAT 
“EXIT IN-LINE 


;COUNT OF DATA BYTES IN BLOCK 
;MEMORY ADR OR START ADR 
NeXT pare ADR 

;USER’S DATA START ADR 
;USER’S DATA BvTE COUNT 


;PARTIAL BLOCK FL 
:PROCESSING EOF BLK FLAG 


ee 


FILE ROUTINGS du RED FOR MP 


MAINTDEC-11-DTECR-B. oC FOR BLL NPG EXECUTIVES MACYI11 27(732) 24-SEP-76 13:56 PAGE 9-2 SEQ 0271 
784 ;OPEN LINKED INPUT FILE 
* JSR NL JR 
oes : WORD Recative ERROR RETURN ADR 
738 NEEDS 1-6 CHAR FILENAME AT “MPGSGN™ 
730 003006; OON76? 901040 OPENL: ISR PC, » SUN ;SET_UP ".USR” EXT & FITCH I.D. 
eae reat’ 4 ear CR EPA : eye BLK 8 EOF ook FLAGS 
Mn 3ne* ’ 

734 003006’ 012765 eee 177744 MOV Oy er erat RS) OOO unny BLK 8 
ce CO Ghaves Poggek’ Odasee ee ANT rE AOR OOK FOR FILE 
oe ee a Rhee 39 TOBY HOUR & 00K FOR FIL 
798 003050’ o1 177744 000006 MOV XISTBK(RS) ,XDT(RS) sROVE Ae! aK 8 19 BLK 8 
7399 003056’ 016 175430 EXNRET: MOV S Rb S & POINTER 
B00 003062 O04S57 005752 ‘ JSR RS, CRTREG ‘RESTORE REGISTERS : 
Bl SR: Bae borer: Fa Bit Foren FET 
804 003072’ 016706 175414 EXERET: MOV STKADR, Rb sRESTORE STACK POINTER 
Se ais: Bie St SY Ue RGA Rm con 
B07 003104’ O0020S RTS RS *EXIT TO MPG ERROR AOR 
803 003106’ 000167 003244 EJNFND: JMP FLNOTF -GO TO NOT FOUND ERROR | 
811 
Bie ;CREATE OUTPUT LINKED FILE 
814 ;JSR__ RS, CREATE S/R CALL | 
815 ; - WORD NNAN 8 OF BLOCKS NEEDED 
816 -WORD ERRADR-. REL ERR PET ADR | 
B17 *NEEDS 1-6 CHAR FILENAME AT “MPGBGN™ | 
819 003112’ 005725 CREATE: TST (RS)+ OF BLOC BLOCKS ; 
820 003114’ OO4SE7 o0010S2 JSR RS, CREGSV ie SAVE REG | 
Bee Ouslew’ Goze? QoOese TR »ESUSAV C TUP FUNCTIONS | 
55 003130’ 004767 001156 JSR PC’ EINTOL aD coer FOR OUTPUT LINKED FILE 
ge4 003134’ 000750 BR EXNRET ‘EXIT TO MPG VIA NORMAL RETURN 
826 | 
827 ;WRITE LINKED ABS. FORMAT BLOCK | 
B28 ‘CLOSE LINKED ABS. FORMAT FILE | 
630 s ISR RS, PUT PUT S/R CALL 

1 "CLOSE CLOSE SVR CALL | 
B32 :,WORD ERRADR-. RELERR RET ADR 
834 003136’ 7 176002 CLOSE: CLR CATE TH THE LAST BLOCK 
fe RIB Oe NAA A Frees ROUTE. IG 18 
836 003146’ 005003 CLR tNITIAT Ze CHECKSUM VALUE 
Seed meee ast Bee” 
839 003160’ 012710 o00001 MOV (RO) :PLACE SYNC WORD IN BLOCK 


a rs ce re rn em a ee ee eo. 


cea ese 


— ee eee ewe 
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840 003164’ 112004 10$: MOVB (RO)+,R4 -GET BYTE OF BLOCK 
841 166’ ADD RY, R3 ;A00 IT INTO CK 

Bie 1 DEC Re :DECR BYTE 

4 172° 134 BNE 108 “CNT = 0? (Y,N-10S) 

844 003174’ 1 NEGB 3 :NEGATE THE CKSUM 

845 003176’ 110320 MOVB 3, (RO)+ i STORE CKSUM IN THE BLOCK 
Bb , 7 175740 TST BUF *THIS THE LAST BLOCK? 

84 * 001014 BNE :Y, N-205 

848 ’ 062700 000004 ADD 84, "ALLOW FOR 4 BLANKS 

849 le’ 112720 000001 MOVB 81/(RO)+ :STORE EOF BLOCK DATA 

8S0 003216’ 105020 CLRB 3s (RO) + : SYNC WORD 

851 ; Leven 000006 MOVB = #6, (RO)+ : (CNT OF 6 

852 an | CLRB = (RO) + 

853 003226’ 105020 CLRB = (RO) + ; START ADR OF O 

854 00230; 105020 CLRB 3s (RO) + 

85S * 112720 000371 MOVB 8371, (RO)+ : 

8S6 003236’ 004767 001272 20$: JSR PC, EWRITL :GG WRITE LINKED BLOCK 

B57 003242’ 000705 BR EXNRET ‘EXIT TO MPG VIA NORMAL RETURN 
859 

B60 sLOAD DEVICE ROUTINE 

862 ALSO USED TO LOAD THE MPG PROGRAM FILE AND 

Bb *THE VALID DEVICES FILE 

Bee iJeRO Renn” Bae STARTING MEM ADR FOR DATA 
867 + HORD BYTCNT CIE OF MEM oneA IN BYTES 
868 . VERR-. REL RET ADR IF DEVICE ERR 
863 WORD INSFADR-. REL RET ADR IF INSUFF MEM 
870 : -. NORMAL RET ADR 

B71 "NEEDS 1-6 CHAR FILENAME AT “MPGBGN™ 

873 003244’ 012527 LOADVR: MOV (RS)+, (PC)+ :GET STARTING MEM ADR 

874 003246’ 000000 LORMST: .WORD 0 “STARTING & CURR MEM ADR 
875 0032S0’ 012527 MOV (RS)+, (PC)+ -GET BYTE COUNT 

876 QOseSe" 000000 LDRBYC: .WORD “MEM AREA COUNT 

877 * 004567 000712 JSR CRE *SAVE ALL REG’S 

878 003260’ 012700 OO00004cG MOV SCF TCHI+4, RO *GET FETCH INFO ADR 

879 O003e64’ Olen MOV (RO)+, -(SP) ; SAVE FETCH’S MDL CODE 8 
880 003266’ 011046 MOV (RO), (SP) :UNIT 8 

881 003270’ 016010 177774 MOV -4(RO), (RO) :SET FETCH TO THE LOAD DEV 
Be) GOSa0O" Ole 176006 NOV -STKADR’-(SP) SAVE STORED STACK POINTER 
Bs4 ’ piers 050115 176752 MOV 8°MP. TPNAM+6 :SET ue “ MPG” FILENAME EXT 
885 003312" 112767 000107 176746 MOVB  8°G, LFNAM+8. 

886 003320’ 012767 047514 003314 MOV #°L6, EFDEVN :SET FUNC DEV NAME TO “LOAD” 
B87 003325" 16767 ove101 003310 HOV 8" AD, EFDEVN+2 a asiais tonal Gaara 
Be3 COaG’ OOD ' BEVERY 

890 003342’ 005077 177700 CLR aLDRMST ;CLEAR FIRST WORD OF DEV ROUT AREA 
891 003346’ Ooust? 177040 LORGET: JSR RS, GET GET A BLOCK OF THE FILE 
B92 005e" l22 .WORD LDEVER-. 

893 * 900000 LORDTA: :WORD  XXXX ; ADR OF DATA IN BUF 

894 003356’ 000000 LDRDTC: .WORD  XXXX : § OF DATA BYTES IN BUF 
89S 003360’ 016700 177770 MOV LDRDTA, RO :GET ADR OF DATA IN BUF 


OS A = ee - 


__ me ne em i ee a ee + ee ee itm A em a ee Hk ee i 
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| OTECAB.P11 FILE ROUTINES REQUIRED FOR MPG 
| B96 003364" 016702 177766 HOV teres he 4 OF bara Baie BUF 
ag pike Ries ae 177650 ay L Rl ; FOR DATA 
899 * 905767 177650 20$: TST LORBYC : MEMORY 
900 > 001440 BEQ LORISM :NLY “URIS 
801 > 112021 MOVB (RO), (R1)4 : = Pats BYTE TO DESIGNATED AREA 
302 Ob) Oss? 177640 DEC ve iDECR PENORY 8 TE CNT 
aos Sesata Gorara Bre tS aea (Y, N-20$) 
905 003416? 010167 177624 MOV RI T ;ST NEW CURR HEH ADR 
td ; ea u eT EXT TT AOR 10 NORMAL 
’ Ol 000003 177270 LDRNEX: MOV 83, E TMP “SET EXIT ADR TO RET 
808 003432’ 012667 1750S4 LOREXC: MOV (SP)+, STK GET ORG STACK POINTER 
303 003436’ Olebb? 0000066 HOV (SP +, CETCHI +6 RESTORE FETCH UNIT 8 & 
aii ose: BIE7Ge etay nay STKOOA fe feSTOne ack PoqNTeR 
912 , 005362 ISR RS, CRTREG REST GIS 
313 OOS’ O0s%7 177e40 308: DEC E TEP sDGER DOT FE et 608 ONT aos) 
915 rectat rete RE (RS)+ + BRS . 
916 003466’ 000773 BR 305 :GO CK IF THIS IS THE ADR 
917 003470’ 061505 40S: ADD (RS), RS : 
318 003472’ pete RTS RS *RETURN T 
$20 003474’ 012767 000001 177220 LDEVER: MOV #1, ETMP ;SET RET ADR TO DEV ERROR ADR 
921 003502’ BR LDREXC :GO TO COMMON EXIT 
922 003504’ 012767 OO0002 177210 LDRISM: MOV #2, ETMP :SET RET ADR TO INSUFF MEM ADR 
323 003512’ 000747 BR LOREXC :GO TO COMMON EXIT | 
925 
ass ;DELETE LINKED “.USR” FILE | 
apg seeRD ERARORS REL. ERRCRET AOR | 
330 “NEEDS 1-6 CHAR FILENAME at a 
932 003514" 004S67 oD04Se2 DELETE: JSR RS, ESiaay ibe REG’S RO-RS 
333 003520" 004767 000236 cas 15k TUP FUNCTIONS 
935 reat JSR Sethe cantins) a0 To PENS LETE ROUT 
336 003536’ 000167 177314 EJNRET: JMP ‘EXIT TO MPG via NORMAL RETURN 
938 
333 ZERO SAVE DEVICE’S DIRECTORY 
941 ;JSR RO ZR CALL 
ae :.WORD E REL ERR RET AOR 
ee wa gee, me a RIE EES SfEe ven 
a oosece" eed 001222 JSR Re’ BRL EDR :CL mA buSBUT DDE | 
847 003556’ 002270’ .WORD ODHSU 
948 003560’ “WORD O 
949 003562" 000122 “WORD  DDBEND-ODHSU 
950 003564’ 004767 000172 JSR PC, ESUSAV D0 COMMON SETUP FUNCTIONS | 
951 003570’ 004775 177760 JSR PC’ JZER(RS) :GO TO ZERO DIR ROUTINE 


33 


BERRLOR Ae os CREO Bad all Sane RCE ERE EG 83 


N 


-11-DTECA-B_ COMMON SEC 
-Pll FILE ROUTINES REQUIRED F 


003574’ 000760 


My 





vrerey 004767 
ieee: O75 
003676" 
eats 
003712’ 042700 
ee 
mara’ ec 
003752’ 
003754’ 005037 
003760’ 


TION Petts te EXECUTIVES 


LIST: 


10$: 


ae eee ee ee ee 


MACY11 27(732) 
BR EJNRET 


;LIST FETCH DEV DIRECTORY 


; JSR T 
;.WORD E -. 

MOV RS)+ De aLSTFLG 

JSR RS, CRE 

INCB PRTFLG 

JSR PC, CRLF 

JSR PC’ ESUFTH 

ec 

RoR TPA 

“ASCII 7227 

.WORD 9. 

JSR , DATUPK 

ISR PC, @ORT (RS) 

aR OESARET 

BOOT FROM FETCH DEVICE 
;JSR_—- RS, BOOT 
>, WORD ERRADR-. 

JSR RS, CREGSV 

JSR PC, ESUF TH 

JSR SxXBT(RS) 

CLR (RS) 

MOV RO, XDT(RS) 

J BKRDO 

(RS), RO 

SIC #1,RO0 

MOV RO; a(RS) 

MOV (RS), RO 

CLR ac 

BIT R, aCSYSFW 

BEQ 10S 

CUR a 

BIT #UNIMAP, ICSYSFW 

BEQ 10$ 

CLR JeMMMR3 

CLR PC 
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;EXIT VIA NORMAL RETURN 


REL pol AOR 
eT” T” FLAGS FROM MPG 


3 9ET PRINTER TTY FLAG 
; ISSUE CR/LF 


;CONVERT & DISPLAY IT 
60 TO Pt LIST ROUT 


itv VIA CRORMAL RETURN 


SE T 
{LOAD DEV CSR WITH UNIT 8 


olde! 


MEM MGMNT? 


a mm i a i i i ee ee 
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DTECAB.P11 SUBROUTINES FOR REQUIRED G FILE ROUTINE 


1900 .SBTTL SUBROUTINES FOR REQUIRED MPG FILE ROUTINES 

1 

100s ;"SAVE” & OUTPUT DDB COMMON SETUP 

1005 ;JSR PC, ESETUP S/R CALL 

1007 003762’ 012767 0S1S2S5 176416 ESUSAV: MOV a7Us OF NAM+6 ;SET “.USR” EXT IN OUTPUT DDB 
1008 003770’ 112767 le2 176412 MOVE = 8° R. OF NAM48. 

1009 003776’ 012767 O40S23 002636 MOV a”SA, EFDEVN SET FUNCT DEV NAME TO “SAVE™ 
1010 OQO4004" 012767 O42Se6 O0eb32 MOV #"VE. EFDEVN+2 

1011 OovOLe” ? 100 JSR iSET UP FOR SAVE DEV HNDLR 
1012 OO4O!6’ O16 MOV c +6 Re *S UN 

1013 oo402e2" 7? 000176 JSR PC, ESUOPT sONITTAL Ze PUY p08 

1014 004026’ RTS PC ‘EXIT IN-LINE 

101 

1017 “FETCH” & INPUT DDB COMMON SET UP 

1019 ;JSR PC, ESUFTH S/R CALL 

1020 -JSR = PC; ESUFT1 S/R CALL 

Ge -J5R = PC, ESUFNM S/R CALL 

1oe4 PENOSH? SENZED  DODEuS FSUFTI; Jon PRTESUTE™ ET UP FOR FETCH DEV HMOLR” 
185d piesa tga Spon IeG MOV Pe rEAtie Re BET Deen's UNIT # 

1026 OO4O44’ 004767 000146 JSR PC, ESUIPT sINITIALI iret D8 

1087 004050’ RTS PC EXIT IN-L 

1029 OO40S2’ 012767 0S1S2S5 176204 ESUFNM: MOV oo TENA SET “.USR™ EXT IN INPUT DDB 
ipay BONDE” Tees poo ise A7eene nove SET FUNCT DEV NAME TO “FTCH™ 
toad Beupbe, Biscby acihs pises Y Pen PER ; 

1033 004102’ RTS sEXIT IN-LINE 

1034 

ios :SET UP DEVICE HANDLER ADR IN INPUT OR OUTPUT DDB 

1038 ;JSR PC, ESUIF S/R CALL 

1038 :JSR PC; ESUOS S/R CALL 

Bay 004104’ 012700 oj0004G ESUIF: MOV SCF TCHI+4, RO ;SET UP “FETCH” MDL CODE ADR 
1042 004110’ 012701 002146’ MOV 8IDHSU,R1 :SET UP INPUT 

1043 004114" OOO4O4 BR ESUCOM :GO TO COMMON PROCESSING 
ieie 004116’ 012700 ooc004c ESUOS: MOV #CSAVEI+4, RO ;SET UP “SAVE™ MDL CODE ADR 
104% 004122’ 012701 002270’ MOV 8ODHSU, R1 ‘SET UP OUTPUT 008 ADR 

1047 Oo" 26" 70 012006’ ESUCON: MOV #EMOLTB, Re ;GET ADR OF MOL TBL 

1048 i ’ Cel o0$: | CMP (RO), (Re)+ *THIS THE DEV’S MDL? 

1050 eat ae 303 ee 108 Nat 205 | NXT ENTRY 

ie tee ere 2 sos" Oro ex 

1 carts BF 3h ita. CK NX 60-1 

1054 146’ Oll2ii 30$: MOV (Re), (RL) : STORE Devine’ S SET UP ADR 
1055 04150’ 020227 012010’ CMP R2, #PTSUAD :1S THIS PAPER TAPE? 


o 
Zz 
: 

20 


a 


PRRRERAS 


z 


ed en ond and ond ond eel ed ee ed ee ee 
SSE EEF 
—Owo 


o 
2 
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SUBROUTINES FOR REQUIRED FILE ete 
004154’ 001005 BNE 40S :Y,N-40$ 
004156’ 020027 000004 CMP RO, #CSAVEI+4 *1$ THIS FOR THE SAVE DEV (PUNCH)? 
004162’ 901902 BNE 40$ : 
004164” 11 000010 ADD #8. , (RL) :POINT ADR AT PT PUNCH SET UP ADR 
004170’ 000207 40$: RTS PC ‘EXIT IN-LINE 
;STORE REGISTERS & SAVE STACK POINTER 
-JSR RS, CREGSV S/R CALL 

004172’ O1044%6 CREGSV: MOV RY, -(SP) ;SAVE REG’S R4Y THRU RO 
004174" 010346 MOV R3,-(SP) RS SAVED BY JSR TO THIS S/R 
0041 ; OLEH MOV R2,-(SP) 

> 010146 R1,-(5P) 
O04202’ O10046 MOV RO, -(SP) 
OO4204’ 010667 174302 MOV SP’ STKADR :SAVE STACK POINTER 
004210’ 105067 174302 CLRB = PRT FLG RESET PRINTER/TTY FLAG 
004214" 010507 MOV RS, PC EXIT IN-LINE 


oo eee no eee 


——. ----— -- 
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DTECAB.P11 FILE INITIALIZATION S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 


108 .SBTTL FILE INITIALIZATION S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 
1 

| 1 Me s INITIALIZE INPUT OR OUTPUT DDB S/R 
1081 :JSR__ PC, ESUIPT S/R CALL 
1088 ?R2 CONTAINS UNIT # UPON ENTRY 
1084 004216’ 012705 002232’ ESUIPT: MOV SINDEV,RS ;SET UP INPUT DDB ADR 
1085 Oovee, BR ESUIOC GO TO COMMON POINT 
1086 ’ 01 002354’ ESUOPT: MOV SOUTDEV,RS *SET UP OUTPUT DDB ADR 
1087 O04230° 004775 177714 ESUIOC: JSR PC, aXDHSU(RS) GO TO HANDLER’S SET UP ADR 
1088 004234" 010067 MOV RO, 128 ‘SET DEV PARAM INFO ADR 
1089 Soieo: 10567 O00012 MOV RS; 10S :SET DDB ADR 
1090 ’ 062767 177754 000004 ADD #XBT. 10$ 
1091 O042S2° 004557 O00466 JSR RS, BMOVE ;MOVE DEV INFO TO DOB 
1092 OoveSe 90000 10$:  .WORD XXX : DEST 
1093 , 128 WORD  XXXX : SRC 
1094 O04262’ 000050 WORD 40. :CNT 
1095 O04264’ 010504 MOV RS, RY "MOVE ASCII FILENAME TO DDB 
1096 * 062704 000024 #XXNAM, RY 
1097 ° b16703 174174 MOV MPGST,R3 
1098 * 012324 (R3)+; (R4)+ 
1099 O04300° 012324 MOV (R3)+. (R4)+ 
1100 004302’ 011314 OV (R3), (RY) 

| 1101 OO4304° 005065 177722 CLR XFLCAT(RS) :RESET FILES PROCESSED CNT 

11G¢ 004310" oode07 RTS PC sEXIT IN-LINE 

j 

1104 

| 1105 s INITIALIZE OUTPUT FOR LINKED FILE 

| 1107 ;JSR PC, EINTOL S/R CALL 
1109 004312’ 01270S 002354’ EINTOL: MOV #OUTDEV, RS ;SET UP OUTPUT DDB ADR 
1110 004316’ 005065 177716 CLR XWCTR(RS) “RESET BLOCKS WRITTEN CNT 
1111 322’ 016767 174142 175764 MOV TODAY , OSVDAT :SET TODAY’S DATE IN DOB 
1112 004330’ 00S067 175765 CLR OBKLGT *CLEAR FILE LENGTH 
1113 004334’ 004775 177766 ISR PC, SETR(RS) GO TO DEV’S “ENTER” ROUT 
1114 004340’ 012767 177777 176024 MOV 8-1, OUBKCT *SET UP LINKED FILE CODE 
1115 OO4346’ 004775 177772 ISR PC. SALC(RS) *ALLOCATE THE FIRST BLOCK 
1116 O043S2’ 177716 INC XWETR(RS) :INCR BLOCKS WRITTEN CNT 
1117 004356’ 016767 175742 175734 MOV OLSTBK, 01STBK *STORE FIRST BLOCK # 
1118 364" 7 175732 INC OBKLGT ‘INCR ® OF BLKS USED CNT 
111 ’ 012767 OOD00l 174546 MOV #1, BUF ‘INITIALIZE BLOCK # IN BUF 
1120 004376’ 000207 RTS Pc ‘EXIT IN-LINE 

| 


a ee ee ee ee 
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TECAB.P11 FILE READ S/R’S FOR LOAD MEDIA HANDLERS 


22 .SBTTL FILE READ S/R’S FOR LOAD MEDIA HANDLERS 
READ LINKED FILE BLOCK INTO BUF 
;JSR PC, ERDLNK S/R CALL 
‘BR ERRADR EXECUTED IF AN ERROR 
004400’ 012705 002232’ ERDLNK: MOV #INDEV ;GET INPUT DOB ADR 
004404" 112767 000001 174110 MOVB sat ti “SET LINK MODE FLAG 
bowtie, O05765 000006 Is! xot RS) s1S THERE ANOTHER BLOCK? 
ppadee ppa7e7 000060 JSR PC, BKREAD ab GERD Re BLOCK 
oo4w4e4’ 016765 174514 o00006 MOV a, XDT (RS) : SAVE NEXT BLOCK ADDRESS 
32” 052716 ooo0de2 ENMRET: ADD @, (SP) *SET RET ADR FOR NORMAL +2 POINT 
36° ERET: RTS ‘EXIT IN-LINE 
OO444O’ 012705 006626’ ERDERR: MOV #EOFMSG, RS SET UP END OF FILE MSG ADR 
OO4444’ 004767 002062 JSR PC, EXERPT ‘ISSUE EOF ERROR MSG 
004450’ o00S6S BR cL EC RBUE ‘CLEAR THE BUFFER & EXIT 


; INPUT OR OUTPUT NEXT BLOCK IN FILE 


ey ed el ed ee 
GaSe coh DOD NO OTe COU ed Os ONO E COT DOD MON EEO SOs ORO 


;JSR PC, NXTBLK S/R CALL 
OO44S2’ 012765 OO00400 OO0002 NXTBLK: MOV #256. , XWC(RS) ;SET UP WORD COUNT 
OO4460’ 012765 001144’ 000004 MOV sBUF ACRS) Set UP ATA AD ADR 
Oo44e6’ 016765 174452 O00006 MOV XDT(RS) T NEXT BLOCK 
004474’ 001760 BEQ ERET THIS LAST BLOCK? (N, Y-ERET) 
004476’ 062716 oo0002 ADD #2, (SP) *SET UP FOR NORMAL RETURN 
004S02’ 000471 BR EXYBK *GO DC READ OR WRITE 

;READ A BLOCK INTO THE BUFFER 

;JSR PC, BKREAD S/R CALL 

:JSR PC, READBK S/R CALL 
004S04’ 904767 000314 BKREAD: JSR PC, CLRBUF ;CLEAR THE BUFFER 
004510’ 012765 001144’ oo0004 MOV wBUF , XBACRS) :SET UP READ DATA {POR 
004516’ 012765 OO0400 OO00002 BKRDO: MOV #256. , XWC(RS) :SET UP WORD COUNT 
004524’ O16565 O000l2 OO0010 READBK: MOV XROCRS) XCOCRS) ‘SET UP THIS DEV’S READ CMND 
004532’ 000455 BR EXYBK :GO DO READ OR WRITE 


o 


INTDEC-11-DTECA-B © COMMON SECTION FOR MPG ABECUTIVES MACYI1 27(732) 24-SEP-76 13:56 PAGE 13 SEQ 0279 
TECAB.P1l FILE WRITE S/R’S FOR LOAD MEDIA 

1167 .SBTTL FILE WRITE S/R’S FOR LOAD MEDIA HANDLERS 

1169 

1170 ;WRITE A LINKED FILE BLOCK 

11Ze ;JSR PC, EWRITL S/R CALL 

1174 ’ 7 EWRITL: J R4 : 

ak: a a ne deo) 

1177 go45se" rer Ives 178602 ROY” OL STaK,OUTOT SET Up ex Ock 

1178 004550" Y 7 174360 3! BUF iT Is BLK TO BE WRITTEN? 

1180 > Ol 177777 175576 MOV 8-1, OUBKCT :SET A OCATE LINKED FILE CODE 

1181 , 177772 JSR PC SALC(RS) i60 HAVE OCATE XT BLK 

11Be , 173516 INC OBKL GT : INCR Bt OCK 

ll * 016767 175514 174332 MOV OLSTBK, BUF *LI 0 NEXT 

1184 , 7 900014 ISR PC, WRTLC 60 WRITE LINKED BLOCK 8 CLEAR BUF 

1185 , Th GO TO EXIT 

1186 , 7 O00006 19$: JSR a C -GO WRITE LINKED BLOCK 8 CLEAR SUF 

1187 OO4%624%’ 004767 O000S4 JSR PC’ FCLOSE GO CLOSE THE FILE 

1188 004630’ O00422 BR BKWAT I :G0 TO EXIT 

1190 

1131 ;WRITE 256 WORD BLK, INCR BLK CNT, 8 CLEAR BUFFER 

1133 ;JSR  PC,WRTLC S/R CALL | 
1195 004632" 004767 000006 WRTLC: JSR PC, BLKWRT GO WRITE THE BLOCK 
119 004636’ 005265 177716 INC XWETR(RS) SINCR BLKS MEITTEN CNT 
1197 004642’ 000470 BR CLRBUF :60 BUF & EXIT | 
1199 

120g sWRITE 256 WORD BLOCK FROM BUF (BLK ® ALREADY SET) | 
1202 ;JSR PC, BLKWRT JR CALL 
1205 ‘JSR = PC’ WRTBLK ZR GALL 
1205 OO4644’ 012765 001144’ 000004 BLKWRT: MOV 88UF , XBA(RS) :SET UP DATA ADR 
160% Oowes2’ 012765 000400 000002 BKHRT : MOV 8256: , XWC(RS) :SET UP WORD COUNT 

1208 vatenp 016565 000014 000010 WRTBLK: MOV XWT(RS), XCO(RS) SET UP THIS. DEV'S WRITE CMNOD 

1 DOMES EXYBK: 13 RY, : G 

1210 ’ 1 J PC) SXSV(RS) : WRITE THIS BLOCK 

1211 004676’ 004767 000026 BKWRTI: JSR PC; RSTO4 *RESTORE REG’S 0-4 

lele 004702’ 000207 RTS PC “EXIT IN-LINE 

1214 | 
1215 ;CLOSE OUTPUT FILE | 
ie? ;JSR PC, FCLOSE S/R CALL 
1219 004704" 004775 177764 FCLOSE: JSR PC, ACLS(RS) :G0 TO DEVICE’S CLOSE ROUT 
1220 004710’ OOSO65 177716 CLR ree TBE + EAR DEN TgE Fite SPER FLAG 
1221 004714’ 000207 RTS PC EXIT IN-LINE 


TECA-B 
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MPG Tee MACY11 27(732) 24-SEP-76 13:56 PAGE 14 
MEDIA HANOLE 


-SBTTL DATA S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 


5 EREKKFSFERRLES 
: SAVO4: SAVE REGISTERS RO THRU RY ON THE STACK 
: LINK: JSR R4, SAVOY S/R CALL 
eitiiitiitits 
SAVOY: MOV Ra, ot} ;SAVE R3 THRU RO 
MOV »7(SP) 
MOV Rh -t3e) 
MOV RO, -(SP) 
MOV RY, PC s;EXIT -- RY IS ALREADY SAVED 
s RESESFSLEASRSSE 
; RSTOY: RESTORE REGISTERS RO THRU RY SAVED BY SAVOY SVR 
: LIM: JSR PC, RSTO4 S/R CALL 
writietiittttt | 
RSTC4: MOV (SP)+,R4 ;SET UP RETURN ADR 
MOV (SP)+,RO s;RELOAD RO THRU R3 
MOV (3P +R 
MOV (SP)+,Re 
MOV (SP)+,R2 
RTS RY s;EXIT IN-LINE & RELOAD RY 
: ELSE EREERRRESEE 


BMOVE: MOVE BYTE FIELDS S/R 


: LINK: JSR Grove /R 
: - HORD STAOR STINATION ADR (ABSOLUTE) 
; : ADR (ABSOLUTE) 
: “WORD COUNT NUMBER OF BYTES TO MOVE 
eriitittiiiiitt| 
BMOVE: MOV #112120, EMINST ;SET UP “MOVB (R1)+,(RO)+" INST 
EMCOM: JSR R4, SAVO4S : SAVE REGISTERS 
MOV (R5)+,RO GET DESTINATION ADR 
(RS)4/R1 :GET ADR OR CLEAR DATA 
MOV (R5)4+,Re °GET OUNT 
EMINST: .WORD  XXXX = (R1)+, (RO)+" OR 
: “MOVE RL (RO) +" INST 
DEC R2 :DECR BYTE COUNT 
EMINST :CNT = 0? (Y,N-EMINST) 
ECOMEX: JSR PC, RSTOY ‘RESTORE SAVED REGISTERS 
RTS ‘EXIT IN-LINE 


a et ne - 


SEQ 0286 
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ie 
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3 
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WONT CWO 
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Pil DATA S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 
; RERRRRARRARERES 
: BCLEAR: CLEAR BYTE FIELDS TO A SPECIFIC VALUE S/R 
: LINK: JSR AR AR 
: WORD ea Fabe BEET ERATION AOR (ABSOLUTE) 
: ; DATA DATA BYTE TO CLEAR WITH 
; COUNT OF BYTES TO CLEAR 
: USES “BMOVE” S/R 
: REKEFLERGSRE RAE 
O0S000’ 012767 110120 177756 BCLEAR: MOV 8110120, EMINST ;SET UP “MOVE R1,(RO)+" INST 
005008’ 000761 BR EMCOM :GO TO “BMOVE” S/R 
5 TSESESERELERSES 
: CRPMAP: CLEAR 128 BYTES TO 0°S STARTING AT “MAPBUF™ 
: LINK: JSR PC, CRPMAP S/R CALL 
eerititititiitt! 
005010’ O04S67 177764 CRPMAP: JSR RS, BCLEAR :GO CLEAR THE MAPBUF 
Oos014; OOsHH" - WORD HAPBUF | 
* 900200 ‘ 128 | 
005022’ 000207 ATS PC sEXIT IN-LINE 
5 AEE aE aba | 
; CLRBUF: CLEAR S10 BYTES TO 0’S STARTING AT “BUF+2” 
: LINK: JSR PC, CLRBUF S/R CALL 
ertritititititty 
o0so24’ 004567 177750 CLRBUF: JSR RS. BCLEAR :GO CLEAR THE BUFFER 
005030’ 001146’ -WORD BUF +2 
005032’ 900000 “WORD O 
005034’ 000776 “WORD S10 
005036’ 000207 RTS PC sEXIT IN-LINE 


ee 


' 
! 
‘ 
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, OTECAB.P DATA S’R°S REQUIRED FOR LOAD MEDIA HANDLE 


' 
i 


1368 4 ERRKESEREREETES 
BS : CMPNAM: COMPARE TWO 9 BYTE FIELDS 
l : LINK: J RS, CMPNAM /R CALL 
| 1331 mB IF UNEQUAL 
/ 1333 : IF DATA TURN W THAT THE 
' 1334 : INS IS EXECUTED. Le BouAL Wiebe WILL BE IN-LINE AFTER 
| 133s : HE BR INS 
1336 ; 
13 : REKESBERESSRRRR 
1338 O0SO040’ 004467 1776S2 CMPNAM: JSR R4, SAVOY ;SAVE WORK REGISTERS 
1340 Oosow4? 012700 gpoodes MOV axckne, RO “SET up Suen pe 
tus Boenes: Bieser Boosed: Roy Axa’ Be ‘eee ip ILENAME ADR 
tt el OC ee Ble eal rcw 
t > ASTOrt : oO Neos 
13% 005070’ 00530¢ 20S: DEC R2 sDECR CHAR CNT 
DOS07e”" ° =< 4 
t ‘eset iz? 177644 Vis APS move ie FILE’S Nene IN CASE THERE 
1349 nated es Be RE *WERE 9°S IN DDB’S FILE NAME 
1351 104’ : 6. 
ey BED: Bees a a Petia 
1 nate rete 1 000077 30S Prop -1(RO),9"? : THIS A “DON’T ER OBE CHAR? 
1355 005120’ 001304 BNE ECOMEX :Y N-ECOMEX 
1358 00Si22’ 000762 BR 20$ :G0 CK NEXT CHAR 
ies ; +s ESEREMAZSERLR EES 
1361 DELAY: THIS S/R PERFORMS A COMPUTE BOUND DELAY 
1363 LINK: JSR PC, DELAY S/R CALL 
1365 . SEEEREEEEEEEERE 
1367 005124" AY: CLR P) NITI LOOP COUNT 
te GIR pie an Bee EE OP cg 
1 130’ 1 I 32k TIMES? (Y,N-49$) 
1370 005132” TST (SPs °CL AR CNTR OFF STACK 
l 005134’ 000207 


RTS PC EXIT IN-LINE 


Ww 
N“N 
_ 
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OTECAB.P11 RADIX SO CONVERSION S/R’S FOR LOAD MEDIA HANDLERS 
1373 .SBTTL RADIX SO CONVERSION S/R’S FOR LOAD MEDIA HANDLERS 
1375 
138 5 RERRRRRREREREEE 
>  PAKNAM: RT TER ASCII FILE NAME TO 

Fe | OBE LEE" 
1381 : LINK: JSR RS, PAKNAM S/R CALL vane! 
1383 : “HOD BStTAOR gf 3 SUT PuT pita WORDS 
; = : KRLAKELEAEREREE 
1387 005136’ OO4467 177554 PAKNAM: JSR R4, SAVOY ;SAVE WORK REG’S 
1388 O05 142° 012501 MOV (RO)+,R sGET ADR OF ASCII DATA 

nos , pA 
1333 meaty Gone? 000012 nee RS, PACK + BaP T & ASCII INTO 2 RADSO WORDS 
1391 005152” 000004 ADO 84° RO tINCR TC EXT STORAGE 
1398 005156’ 004567 O000le ISR RS; PACK “PACK LAST 3 ASCII INTO 1 WORD 
1333 005162’ 0004S6 BR EPKEX :GO TO EXIT 
1395 
ie s HELSEELKEREHREES 
1398 : PACK: DEPENDING UPON ENTRY POINT, EITHER CONVERTS 
1399 : PACKi: 6 OR 3 ASCII WORDS TQ EITHER & OR 
1400 : RADSO WORDS. REG Ri RINS ADR OF ASCII 
1401 : DATA UPON AND POINTS TO THE NEXT LOCATION 
1402 : AFTER THE ASCII DATA UPON EXIT. REG RO CONTAINS : 
1403 : ADR OF OUTPUT RADSO WORDS UPON ENTRY. | 
1405 : LINK: JSR RS, PACK b/2 S/R CALL 
1406 : PACK! 71 §/R CALL | 
Pel : SRESFFEEASRERES 
1410 005164" 012767 177776 OO000& PACK: MOV 8-2 EPKCNT sSET T WORD CNT TO 2 
1411 005172" O00403 BR EPKCOM ;60 TO COMMON POINT 
1413 005174’ 012727 177777 PACK: HOV 8-1, (PC)+ iE OUTPUT T WORD CNT TO 1 

b0S200’ e. : 
Se ice na RA tntdbes Low | 
141 poesie” bosobe CLR = Re’ ; | 
1418 005214" 112103 20$: MOVB (R1)+,R3 :GET NEXT ASCII CHAR 
141 ’ iee703 000040 CHP #40,R3 :CHAR A BLANK? 
14 * 00141 Q Ree 
1421 * 122703 oo0044 CMPB Os’ $,,R3 :A’DOLLAR SIGN? 
1355 Goss’ sonae> poo101 Beppo a’A aN eon an “An? | 
14 bese ete BLO fas :N, Y-40S 
1425S 005240’ 162703 O00040 SUB #40,R3 :ADJUST FOR A-Z CHAR 
1426 pose 1be703 000016 30$: SUB #16,R3 ADJUST FURTHER 
1427 * 162703 000011 40S: SUB #11°R3 
1428 005254’ 162703 000011 S0$: SUB #11°R3 
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FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 15-2 
S/R’S FOR LOAD MEDIA HANDLERS 
, RRERERSRALERERS 
: UPKNAM: UNPACK 3 RADSO WORDS TO 9 ASCII CHARACTERS 
: WHICH ARE A FILENAME. 
: LINK: JSR S/R CALL 
: . WORD Ree tpOR AOR OF 9 ASCII CHAR’S OF OUTPUT 
: “WORD  RSOADR AOR OF 3 INPUT RADSO WORDS 
HEHEHE 
UPKNAMN: JSR R4, SAVOY ;SAVE WORK REG’S 
MOV (RS)+,R1 ‘GET ASCII OUTPUT DATA ADR 
MOV (RS5)+’RO GET INPUT RADSD WORDS ADR 
JSR RS, UNPACK :GO UNPACK FIRST TWO WORDS 
ADD 84° RO ‘ADJUST INPUT DATA ADR 
JSR RS; UPACK1 :GO UNPACK LAST WORD 
BR EPKEX :GO TO EXIT 
: « SEERSESRRERESESE 
UNPACK: NOI N EITHER CONVERTS 
: UPACKI: zo oR “FeOSD UokDS oEineR i aie 
: REG CONTAINS Zor OF ASCII 
: BUTPUT DATA UEGH ENTRY AND porns TO THE NEXT 
: LOCATION AFTER THE ASCII DATA UPON EXIT. REG RO 
: CONTAINS THE AOR OF THE INPUT RADSO WORDS UPON ENTRY. 
: LINK: JSR RS, UNPACK 2/6 S/R CALL 
: " UPACK 1 173 S/R CALL 
UPHHEHHBHEHEHEHE 
UNPACK: MOV 8-2, EPKCNT ;SET INPUT WORD CNT TO 2 
BR EUPKCM :GO TO COMMON POINT 
Kl: MOV 8-1, EPKCNT ;SET INPUT WORD CNT TO 1 
EUPKCM: JSR R4, SAVO4 SAVE WORK REG’S 
: MOV 8-3. RY sINIT ze INTERNAL LOOP CNT 
(RO} RO ;GE 
MOV BECOEFF ,R2 :GET COEFFICIENT TBL ADR 
10$: CLR R3 ‘CLEAR QUOTIENT REG 
2058: CMP RO, (Re) “DONE WITH PSEUDO DIVIDE? 
BLO 30$ :N, Y-30$ 
SUB (R2),RO *SUBT CURR COEFF VALUE 
INC R3 HINCR QUOTIENT 
BR 20S OOP AGAIN 
30$: STB  R3 SSUOTI NT ZERO? (A BLANK) 
BEQ 40S NOY 
CMPB 3 séR3, 833 :QUOT A "S$"? 
BEQ 60% iN, Y- 605 
BGT 50s -50$) 
ADD #40,R3 sMUST El a oe, “Mbsust ACCORDINGLY 
40$: ADD #16;R3 ‘ADJUST VALUE FLRTHER 
SO$: ADD #11/R3 
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DTECAB.P11 
17 
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ul 
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TYPE S/R’S REQUIRED FOR LOAD MEDIA 


-SBTTL TYPE S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 


; RERAAESRARARKES 
: CHROUT: TYPE THE ASCII CHAR IN REG Re S/R 
: LINK: JSR PC, CHROUT S/R CALL 
UEHEBHEHEHHEHEEE 
CHROUT: MOVB  R2, ETYPWK STORE ster AT COMMON LOC 
ECOMTY: JSR RY, SAVOY WORK REGISTERS 
JSR RS; CLIST THE WRITE OF ONE CHAR 
.WORD ETYPWK-. 
“WORD 1 
BR ETYEX G0 TO EXIT 
ETYPWK: .BLKW 5 TYPE WORK/CHAR AREA 
: o EEKEKLEKEERERKE 
CRLF: THESE TWO S/R’S ARE USED TO TYPE A CARRIAGE 
; TAB:  RETURN/LINE FEED AND TAB, RESPECTIVELY 
LINK: JSR PC, CRLF o/R CALL 
; LINK: JSR PC; TAB R CALL 
errrrrrtrt ttt er 
CRLF: JSR RY, SAVOY ;SAVE REGISTERS 
JSR RS; CLIST ISSUE CR/LF CHARACTERS 
.WORD EXERM-. 
“WORD 2 
BR ETYEX :GO TO EXIT 
TAB: MOVB #011, ETYPWK SET UP TAB CHAR 
BR ECOMTY :GO TYPE IT 
: KEREXERESLRKEHE 
STYPNM: STYPNM WILL TYPE A CR/LF FOLLOWED BY THE NINE 
: STPNMI: CHARACTER FILENAME STARTING AT THE SS STORED A 
: LOC ON “STXNAM”. IN THE DISPLAYED DATA A SPER TOD WILL BE 
: NSERTED BETWEEN THE FILENAME AND ITS EXTENSION. 
: STPNM1 DOES THE SAME FUNCTION BUT WITHOUT THE 
: LEADING CR/LF. 
: LINK: JSR PC, STYPNAM S/R CALL 
: *STYPNM1 
: EL KEELEFLEEESEL 
STYPNM: JSR PC, CRL s ISSUE CR/ 
STPNM1: JSR RY’ am ; SAVE WORK LREGISTERS 
MOV $TXNAM, RO :GET FILENAME ADR 


SEQ 0287 
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CTION FOR Recut vee MACY11 27(732) 24-SEP-76 13:56 PAGE 16-1 
TIRED FOR L MEDI 


SETYPWK RI ; 

nv, Hie, Bao hee 
10S: M: (RO)+) (RL)+ : pat ri 

DEC R2 iD FIL 

ROVE a>, (RLD4 ip 109 1M ms pata 
20S: ae (RO)+, (R1)+ A OF EXT 

DECB = Re ;DONE 3 CHAR eet 

SR ges CLIST tT epE THe FILENAME & EXT 

.WORD  ETYPWK=. 

.WORD 10. 

BR ETYEX GO TO S/R EXIT 
es 


MES: THIS S/R WILL TYPE THE ASCII DATA STARTING AT THE 
SUPPLIED ADDRESS AND UP TO BUT NOT INCLUDING 


3 THE FIRST 00 CHARACTER. 
LINK: JSR RS.MES S/R CALL 
; .WORD DATADR DATA ADR (ABSOLUTE) 
eererr rrr t tty 
MES: J R4,SA :SA G’S 
mov Rohe RO es a i abe 
MOV RO, RI “COMPUTE CHAR CNT 
uos: TSTB  (RIL)+ 
BNE 40S 
RO,R1 
C Ri 
TST Ri ; CHAR, CNT = 0? 
Q EMESEX ?N, Y-EMESEX 
MOV #44$, Re CET S/R INO STORAGE AOR 
Ce oe SOE ORTH ER 
MOV R1, (Re) : STORE SHAR CNT 
= JSR RS; CLIST :TYPE THE MSG 
: “WORD  XXXX 
EMESEX: JSR PC, RSTOY RESTORE WORK REG’S 
RTS RS EXIT IN-LINE 


- cr ne ce en ne | a rc ee 


we a os ne oe ee eee + ee 


! 
‘ 
! 
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1613 ; ERELRERRRREREES 
p32 j ecoCW: CI A Seach OCT TS Sree ¢ BY TOE OUNT SICH FOLLOWS 
i RES eu a Reena” = re 
| 1625 : LINK: JSR S/R CALL 

te ; . WORD REeE Tony # OF DIGITS TO PRINT 

1628 : R3 CONTAINS BINARY # TO CONVERT 

ie30 : RKARARARRARAAASE 

1 ’ 7? 176762 BCOCV: JSR RY, SAVOY ;SAVE WORK REGISTERS 

1e33 Seesay” bicse0 mY ORSRO sry ORD UP FOR S/R 
| 1634 005736’ 004577 000010’ JSR RS: ABTASLB :CONVERT ® TO DECIMAL ASCII 
ipa peers iter MOV a en ;GET 8 OF OIGITS WANTED 
1637 005746’ 012701 000006 HOV #5 RI iSET UP maxX <8 OF DIGITS 
| 1838 Ooevea Ote703 005776" MOV  SEBCOWA, RO {GET ASCII DATA 
HRS Bie: oes os: Ble BS Bsr toh Oo 
| feud Qoeses: AAG3E> 177522 * JSR —«- PC. CHROUT pe TT 
| lous 005770’ 005300 DEC RO ; DONE ALL DIGITS? 
| bY S825 55. p43 bResex GO Th Bart 
| 1647 005776’ 000003 EBCDWA: .BLKW 3 

1649 

tra] 5 RRR EE REE ELE 

1 e3 : ITOA: CONVERT BINARY WORD IN REG R3 TO SIX ASCII DIGITS 

1653 : AND TYPE THEM. 
1655 : LINK: JSR PC, ITOA S/R CALL 
| 1667 HEHBHBHEHEHEHEE 

1659 06004" OouH67 176706 ITOA: SR R4, SAVOY 3SAVE MOR WORK REG'S 

1661 Ooeie" Oos77 000008’ ISR RS, SBINASC :CONVERT I 10 ORsert 

1663 ’ OO4sb? 001214 JSR RS. CLIST ;TYPE THE 6 DIGITS 

1664 : i -WORD EBCDWA- 

1665 ’ “WORD 6 

1666 006030’ 004767 176674 ETYEX: JSR PC, RSTOY RESTORE WORK REG’S 

1667 006034’ 000207 RTS PC ‘EXIT IN-LINE 

| 
| 
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| 
| 1669 H REARARAAERRKKRKS 
| 1670 : 
1671 :  DATUPK: 
| 
1673 : DATE UNPACK AND TYPE S/R 
| 1675 : LINK: JSR PC, DATUPK S/R CALL 
1677 : REG R3 CONTAINS PACKED DATE 
1679 HEHEHEHEHEBHHHEE 
| 1681 006036’ 004467 176654 DATUPK: JSR R4, SAVOY sSAVE WORK REGISTERS 
| 1682 OO6042" 012704 MOV #69. RY ‘INITIALIZE YEAR TO BASE -1 
1683 006046’ 042703 1 BIC #100000,R3 *RESET CONTIG BIT 
oc nnn ieee ime ei pea snc 
| 1686 reat ipern BGT go : OUND? (Y,N-10$) 
| 1687 006062’ 062703 001750 ADD #1000. ,R3 “RESTORE DAY 8 MONTH 
1688 006065’ O0SO46 CLR -(SP) “CLEAR LEAP YEAR FLAG 
1689 006070’ ge704 000003 BIT 43,84 j THIS af LEAP YEAR? 
1691 renee pois 000073 CMP R3, #59 ?15 DAY LATER THAN FEB 287 
1692 006102’ 101402 BLOS }36=s 20 :Y N-20$ 
| 1693 005104" 005216 INC (SP) ;SET LEAP YEGR FLAG 
1694 006106’ DEC R3 : Fi 29 
| 1695 006110’ 012760 006217’ 20$: MOV #EMONTB+3, RO *SET UP H TABLE ADR 
16% 006114 111001 308: MOVB  (RO),RI :GET § OF DAYS IN CURR MONTH 
1697 006116’ 020301 CMP R3, Ri ‘DAY VALUE =/< CURR MONTH? | 
1698 006120’ 101404 BLoS } 6._:«- os : 
1699 O06122° 160103 SUB R1,R3 : DAY VALUE BY CURR MONTH 
1700 006124’ 062700 000004 ADD RO *POINT TO NEXT MONTH 
1701 006130’ 000771 BR : NXT MONTH 
1702 006132’ 005726 40$: TST (SP)+ *LEAP YEAR FLAG SET? 
1703 006134’ 001404 BEQ cos :¥ N-SOS | 
1704 006136’ 006223’ CMP RO, SEMONTB+7 518 MONTH = FEB? 
1705 006142’ 001001 BNE so$ N-SUS 
1706 006144’ 005203 , INC R3 TACR DAY FOR FEB 29 
1707 006146’ 004567 177556 sos: JSR RS, BCDCV :CONVERT & PRINT 2 DAY DIGITS 
1708 006152’ .WORD 2 
1709 006154’ 012703 006212’ MOV SEMONMG+4, R3 ;SET UP MSG ADR 
1710 006160; 11404 MOVB -(RO),-(R3) *MOV ASCII MONTH NAME TO MSG 
1711 162’ 11404 MOVB  -(RO),-(R3) 
1712 OO06164’ 114043 MOVB  -(RO)’-(R3) 
1713 006166’ OO4S67 177462 JSR RS, MES PRINT MONTH IN -XXX- FORMAT 
1714 006172’ Sob206 .WORD EMONMG 
1715 006174’ 010403 MOV RY, R3 ;SET YEAR VALUE IN REG FOR S/R 
1716 006176’ OO4SE7 177526 JSR RS, BCDCV ‘CONVERT & PRINT YEAR VALUE 
1717 006202’ . WORD 
1718 006204’ 000711 BR ETYEX :GO TO EXIT | 
1720 006206’ OS4YOSS 054130 OOD0SS EMONMG: .ASCIZ /-XXx-/ | 
1722 006214’ O40S12 017516 EMONTB: .ASCII /JAN/<31.> 
1723 ’ 042506 016102 "ASCII /FEB/<28.> | 
1724 O06224’ 040515 0175 "ASCII /MAR/<31.> 


_— mm 
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CAB.P1 TYPE S/R’S REQUIRED FOR LOAD MEDIA HANDLERS 

' 1725 006230’ 101 017122 - ASC /APR/<30.> 
1 Ka 1 ied} Bx /MAY/<31.> 
17 P 1 1711 J 7JUN/<30. > 
17 ‘ 1 17514 -ASCII /JUL/<31.> 
1729 006250’ 052501 017507 -ASCII /AUG/<31.> 
1730 006254’ O4eSe3 017120 -ASCII /SEP/<30.> 
1731 ween, 041517 017524 -ASCII 7OCT/<31.> 
1732 * 047516 017126 ASCII /NOV/<30.> 
1733 006270’ O42S04 017503 ASCII /DEC/<31.> 


OO One ne er ee Ree ee ee eee en + eee eee oe 


a a ee ee eR Re A ee a ee ee oe 
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| 1% .SBTTL ERROR RETURN POINTS REQUIRED FOR LOAD MEDIA HANDLERS 
¢ 
1738 
8 iui aeaiaiiaiiainiaiaial 
1741 THE FOLLOWING ARE RETURN POINTS FOR SYSTEM DEVICES 
1742 : WHEN THEY OUNTER ERRORS T NT DEVICE 
1743 : FUNCTION W Ms TED SINCE T 
17a : NOT SUPPLIED. 
1746 : LINK: JMP LABEL WHERE LABEL IS ONE OF 
1747 : THE FOLLOWING: 
1748 ; 
tae . « SEEFSREFSSSRESS 
1751 006274’ 004567 900162 DELERR: JSR RS, ERRCOM sFILE DELETE ERROR 
1752 006300’ 114 051105 -ASCIZ /DEL ERR/ 
mee 006306’ 000122 
1754 006310’ 0045657 1 DELFIL: is , RS, ERRCOM sFILE NEEDS TO BE DELETED ERROR 
1755 006314’ DicsDs 020114 046117 ASCIZ /DEL OLD/ 
1 a are VEN 
1 006324" 004567 DEVERR: a8 RS, ERRCOM sDEVICE ERROR 
1758 006330" 020126 051105 -ASCIZ /DEV ERR/ 
om 006336’ 000122 
1760 ’ 7 000116 DEVFUL: JSR sDEVICE IS FULL ERROR 
1761 pest. Poot de 052506 -ASCIZ Rat FULL/ 
1762 Se EVEN 
1763 008356’ O04S57 176362 FLNOTF: JSR RS, BMOVE ;MOVE FILENAME.EXT TO S/R AREA 
1764 006362’ 000524’ i TXHAM 
1765 tee ° ’ NE NAME i 
176 ’ 4 177200 J STvPhe YPE NAME OF FILE NOT FOUND 
1768 , 7 TR Re RRC FILE NOT FOUND ERROR 
1769 ’ 14 o47040 -ASCIZ /FILE Kor FND/ 
* 05211 2116 

006414" 000 
1770 O06M16’ EVEN 
1771 006416’ INVCMD: IR RS, ERRCOM : INVALID CMND FOR DEV 
1772 eters 7111 126 O4650 -RASCIZ /IAV CMND FOR DEV’ 

006430’ 042116 O43040 051117 

006436’ O42040 053105 000 
1773 “ seen 
1774 OO6444" 7 1 CKSMER: J RS ERRCOM :CHECK SUM ERROR 
1775 O064S0’ 020115 -ASCIZ /CKSUM ERR’ 

006456’ 051105 O00le2 
1776 EVEN 


2 
a 


Oo 
oan mm 


SESBIRABRSBIS & 


a ee ae ees +. oe. 


SE ee ~~~. 


fe fa bao po 


ee en a a er Re en ee Se ies sige hal 
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;ERROR COMMON PROCESSING 


5 bb8os8 mae Fen BeBe PS eee Th SF cece CLOSE? 


UO 
~~ | 
Bae Bee 


ee TST (Pe)+ 
Nay ECFORC: .WORD 0 a 
Goests” 5 173566 i3 TR ‘HAS AB ue BEEN LEFT OPEN? 
 Doseee Ne ee ecING A ” FLAG 
Beas: Hae. Meas mY SUEY as 1 St oS be 
Ooeeee" Goste7 eSiGe 10$: CLR Ector iReseY Fonces CL bee FLAG 
* 000167 174340 IMP XERET :GO TO ERROR EXIT 


; ISSUE STANDARD ERROR MSG S/R 


;JSR PC .EXERPT S/R CALL 
RS MUST CONTAIN ABS ADR OF ERROR MSG 


Patree Rese? PRINTER/TTY FLAG 


SCNTRLO, OCSYSFW :RESET TYPING SUPPRESS FLAG 





RS, BOVE :SET FUNCTIONAL DEV NAME IN MSG 

pie 

RS, MES ; ISSUE STANDARD PORTION OF ! 

XERM sERR MSG ) 
MES ISSUE ERROR I.D. 

PC, CRLF ; ISSUE CR/LF 

PC tEXIT IN-LINE 


ergee 1S O4e4Se OeSi22 EXERM: .ASCII <015><Ol2>/#ERe / 
ef 130 054130 020130 ERMFDN: .ASCIZ /XXXX DEV: / 
006620’ a4 bales 
SoEe Se 10S e201 117 EOFMSG: .ASCIZ /END OF FILE/ 
’ 043040 046111 0001 


/LOAD/ ;CURRENT DEVICE'S FUNCTIONAL NAME 


2 
a 
£ 
2 
os 
R 
2 
3 


| 1-DTECA-B 
_ DTECAR. Pil 


1851 
| Gee 


PEE EE Pannen aust iain 


5 0 Go OB Gp 6m Op GD GD Ep 60 ED 6 6D 6 SO ED GO ED GO GOED GD 6D GO BD 
vs) 


bt pee 


RRRSRE LA ce sipaa abated ial 


Sone 


3 b= se Bs Bs BS = PS ee bP bb Bb Be es bm hm pe he 


N“ 
_ 
Tw 


ee ae ne en Se ee ee ee ee we 
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010000 000012’ 
o40000 000012’ 


200 Goons, Bdcss8 


000010 
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-SBTTL CONSOLE TERMINAL CONTROL ROUTINES 


j REHREAAERASLLEAAELSLELSEALELLASREAE SALES RASRRALA SRA ERRAESELS SESE SEES E4ESSS SESS 


Se ee ee ese ee eres ee ee et es es es ae 


CTU 


208: 


feo WRITE) FOR OTH ACCE i Bey eats 
ne, ape Din he _Jiponeerin 


IF THE TERMINAL IS ALREADY BUSY WHEN 

rarer He Saray 
PERF WITH E IneLlte On ONLY ty ATER THE ENTIRE 
1/0 FUNCTION HAS 


SUPPLIED SLAY AQORESD TE THE, A M4 WI OS ee ny TO THE 


I Y 
ab OTHER loeb Te Tie aay I REE, 
THE USER 1/0 WI cMaete OR 
1/0 TERM’ FLAG WILL BET WORD 
AT THE ADDRESS SUPPLIED. RETURN a WILL TER be BE MADE IN-LINE. 
MPG LINKAGE JSR RS, CTWR MPG WRITE 
*CTRO MPG WITH ECHO 
CTRONE MPG Wd ECHO 
.WORD TAG-. RELATIVE ADR OF I/0 AREA 
.WORD COUNT 8 OF CHARACTERS TO TRANSFER 
USER LINKAGE: JSR RS, CTUSWR USER WRITE 
- WORD TAG-. RELATIVE ADR OF 1/0 AREA 
COUNT 8 OF CHARS TO XFER 
-WORD  BADR-. RELATIVE RETURN ADR IF BUSY 
.WORD  FWADR ABSOLUTE ADR OF PROG’S FLGWD 


DESTROYS REG’S: RC,R1,Re 


RETURN WILL BE IN-LINE FOLLOWING T oueNTS UNLESS THE CONSOLE 
TERMINAL IS BUSY A USER I70 IS BEING ATTEMPTED. 


SLLFLLELLLELERSLSLLALELLESLEALSLLELELEAASLALSLELERASRSLELALSLALESLSASERLA FLARE 


;USER WRITE ENTRY POINT 


SWR: BIT SCNTRLO, aCSYSFW ; :1S TYPING SUPPRESSED? 
Br , aCSYSFi D TO RESET USER DEDICATED? 
Bre D+CTUDED, ACSYSFW ‘REGE FOR M DEDICATED FLGS 
MOV rare 4 sRESET BFR 
JSR :RESET USER’S DEDICATED FLAG 
“HORD setfeg -, 
ADD #8. ,RS :SET UP RETURN ADR 


a mr ne ne ee ee ee ee ee — nn a ee ee ee em + eee ee 


SEQ 0294 


ee eee 


| 
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=1 
TECAB. P11 CONSOLE TERMINAL CONTROL SUTINE 


+ 


Bae Pano Pee Pe bao f§ + Pe Pro fas ha fe 
telee 
ee ee 

BERS BEB 


ia acer: 


00.0.0.0.0.0.0.0.0W0 
oe he oe ee 
0 OO NOU 2 WIT 


SERIA 


*D.OD bs b= b+ bb bs Bb = = Bb bb bb bP b= b= bb bo bo bs Pe bs Ps pane ee F< Bo He Fe Pe Pe Pe Pme Pas Pew Po Bo Hs HP 
hot of 
— 


006716’ RTS XIT I Int 

poe re0, 002042 002130 308 i sgsrereenanr CTH Bo she cus OR ECHO BUSY SET? 

006730’ 000004 CTBRET: ADD en 8 at PAST NTS 
tre) RS Le Y RET 


R RS sEXIT TO BUSY 
100002 002110 CTDUWR: BIS Bi ROC TEST TPL Gs 35! Hoesen WR & phoceee lanes 


;EXEC WRITE ENTRY POINT 


nes 010000 000012’ CTwR: I SCNTRLO, ACSYSFHW i15 TYPING SUPPRESSED’ 
006760’ 000004 ADD 84,RS se UP RETURN ADR 
764’ RTS RS’ XIT IN-LINE 
, oo2zo42 o02062 40S: BI aCTHESY+CTEBSY+CTHAIT, criti Oa OR ECHO BUSY FLAGS SET? 


seat CTE cfu = 


490006 
CTWCOM: MOV R50 
ADD (RS)4, RO 
002040 MOV RO, CTWAOR he ROUTINE 


ROR 
to TO INT ROV 


ee 
Pate ntnt 100 FLAG 


HS mie INT COTTE. BIT 


D070 le’ 
ba7O16" 


= 
3 


55s 
QOOD--—MO 
a 
> 
$ 


8 
Ppt 
3 


oeeiibedl 
+b 
oOo 
~ 
“5 
e@ece 
32 
nate 


000205 
Bibs 
062705 
Beosce 
e548 
SB 1404 
Beate 
1 
efi 
1: 





a | 
C 
BM us | | 
004767 3S: JSR PC, LIGHTS :D OrePLAY IDLE BIT PATTERN 
7 001756 BIT aCtwesy, CTFLGW "1S 'WR BUSY’ FLAG STILL SET? 
nied BNE 3§ :(N, Y-3$) | 
000205 ug RTS RS “EXT IN-LINE 
| 
sEXEC READ WITHOUT ECHO ENTRY POINT | 
007104’ 032767 000003 001744 CTRDNE: BIT SCTRBSY+CTWBSY,CTFLGW  ;READ BUSY OR WRITE BUSY” | 
007112" 01374 T : (N, Y=CTRONE ) 
114’ 7 000200 001734 I SCTRODEC, CTFLGW :RESET THE ECHO FLAG 
007122" 000407 BR CTRCOM GO TO COMMON PROCESSING 
EXEC READ WITH ECHO ENTRY POINT | 
007124’ 032767 O00003 001724 CTRD: BIT eC TRESY#CTHBSY, CTFLGH ;READ BUSY OR WRITE BUSY? 
007132" 001374 BNE cr RD :(N, Y-CTRD) 
l IF OF M MI 
_e CTRONE :00 NOT ECHO IF MIMIC | 
007124’ 958767 900200 001714 BIS BCTRDES, CTFLGW :SET THE ECHO FLAG 
007142’ 042767 O00040 001706 CTRCOM: BIC aCTEBSY, CTFLGW ‘RESET THE ECHO BUSY FLAG 


nm i em a ee me nn a ee ee ee ee es er wo ee ene. 
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| OTECAB. P11 CONSOLE TERMINAL CONTROL ROUTINES 
bil 150° V RO ; T x AND 
Sie tee ee SGI OP Hh BORE | 
133d Bet , 130i 011066" MOV SCTRCAT, Re GET tok ER STORAGE AREA 
1836 007162’ 010122 MOV Ri, )4 ; STORE COUNT ate DATA ADR 
1932 164” HOV * (Ro)+ IN THE INT 
1 166’ O1 RI’ (Re)+ 
1939 170° O1 MOV RO; (Re)+ 
1940 b0r 172" 105767 001660 ite CTFLGH ECHO FLAG SET? 
/ 1941 176’ 1 128 :(Y,N-12$) 
| T&i5 Boece beses Sooo: porcee 12s: Bre — SkTRBeYeTET ON ret THe READ BUSY Frag 
1944 14’ ite cate 001 iE 7 Bb Sonesct iebf TTY NT ENABLE 
1945 001 -1E OF MIMIC 
17 CTRMLP a oF #12,R0 ;##e MIMIC #48 
1949 007222’ 004767 171152 CTRTRB: JSR PC, LIGHTS :DISPLAY IDLE BIT PATTERN 
1360 007226’ 032767 O00001 o016e2 Bre sCTRBSyY, CTFLGW :1S READ BUSY STILL SET? 
195¢ 007234’ 001372 BNE CTRTRB : UN, Y-CTRTRB) 
1954 BNE CTRMCD ;#ee MIMIC se 
1955 IFTF 
1956 007236’ 000205 RTS RS EXIT IN-LINE 
1357 IFT 
1359 CTRMCD: DEC RO eee MIMIC B48 
1960 BNE CTRTRB ;eee MIMIC BH 
1%1 SLPBKP: NOP see8 MIMIC £2# ; 
192 BR CTRMLP eee MIMIC ee 
1963 009 ENOC 
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- DTEC LI5T DEVIC 
1965 .SBTTL LIST DEVICE CONTROL ROUTINE 
130 : HEKKKRSKELHSKLKEKLALHESSARRSS RAE SLERKKELARAKSLERERREERERARS HSER DAY 
1963 : THIS ROUTINE DETERMINES IF A LIST DEVICE tes BEEN ASSIGNED 
1970 : BNO THEN. BRANCHES TO EITHER THE C ROUT INE 
1971 ; OR TO THE PRINTER ROUTINE. IF THe PRINTER THY FLAG IS RESET 
197¢ : IT WILL ALWAYS GO TO THE CONSOLE TERMINAL. 
1974 : LINKAGE: JSR. RS, CLIST ROUTINE CALL 
1975 : .WORD MSGADR-. REL ADR OF MSG DATA 
1378 ; .WORD COUNT MSG BYTE COUNT 

f & 

1978 : EXITS TO EITHER CTWR OR CPRT 
; or : FPEERREESE SEE RE LELSE SEL RSSEARERSSSFSHFSPELESARALE LE RES E SSSR EAA ESE SES 
1982 007240’ 105767 171252 CLIST: TSTB  PRTFLG sPRENTERZTTY FLAG SET? 
1983 bore O01 4} BEQ CTWR Y Ne 
1984 , 67 002170 TST CLISTI+4 iA "PRINTER BEEN ASSIGNED” 
1985 007252’ 001636 BEQ CTWR N-CTWR 
1986 007254’ 000400 BR CPRT it TO PRINTER ROUTINE 


me ee ee EE OTE EEE oe Eee eae ee -- al 


ae 
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= 
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ll PRINTER CONTROL ROUTINE 
.SBTTL PRINTER CONTROL ROUTINE 
3 » SEKASRELSESESSSSARELELSASRERAAAESERASRSSRAASRERARALALHAAKELARSSKESE 
> THI WRI OPERAT TO THE MPG LIST 
+ DEViCe FOR Born feb igER FUNC Hoes, 1F EN HEC 
: FUNCTION THis Ro eM mis tg FOR THE FP MeR ¢ IF dtp 1S 
Fe shee FIED ATTN BErORe AETURRINGL 
# FUNCTI LL 0 THE IED BUSY 
: IF Tre PRATER te Bley uPOW ENTRY NO 0 HER ACTIONS. WILL 
a 7 c THE, WALT F FoR a i7) YER MILL 
: IN TIRTED OM THEN The ee te HE im 
: WILL THEN BE ROMEDIATELY Abe MADE IHLINE 
: MPG LINKAGE: JSR RS. CPRT PRINT 
: .WORD = TAG-. REL AOR OF 1/0 AREA 
: “WORD COUNT & OF CHARS TO TRANSFER 
: USER LINKAGE: JSR RS, CUSPRT USER PRINT 
: .WORD TAG. REL ADR OF 1/0 AREA 
: “WORD COUNT 8 OF CHARS TO XFER 
: “WORD  BADR-. REL RETURN ADR IF BUSY | 
: “WORD  FWADR ABSOLUTE ADR OF PROG’S FLGWD | 
; DESTROYS REGISTERS: RO,R1,R2 ! 
: EXLLEESRELERELLR SAS LE KLE GRRE LE ELE EY LRSELSEREKES LEELA EEE SSS RASERLE | 
:MPG ENTRY POINT | 
007256’ 032777 OO0100 002162 CPRT: BIT #100, IPRTDRA :1S THE PRINTER BUSY? 
007264" 001404 BEQ 1 -Y,N-15 
007266’ 032777 OO4000 000012’ BIT SCHPINT, @CSYSFW :INT ENABLE BEING HELD SET? 
007274’ 001770 BEQ :¥ N-CPRT 
007276’ 042767 100000 002122 1S: BIC 8CPRUSR, CPRFWD "RESET USER PRINT FLAG 
007304’ 000432 BR CPRCOM GO TO COMMON PROCESSING | 
USER ENTRY POINT | 
007306’ 032777 OO00i00 002132 CUSPRT: BIT 8100, IPRTDRA sPRINTER BUSY? 
007314’ 001423 Q cs ?Y, N= 
007316’ 032777 OO4000 000012’ BIT SCHPINT, aCSYSFW ‘INT ENABLE BEING HELD SET? | 
007324’ 001415 BEQ 3$ :¥ N= | 
007 326 016567 000006 o02i22 MOV &(RS) .UFWHLD GET FLAGWORD ADR 
; 0577 000004" JSR. —s- RS, DURST 'BEING HELD SET FOR THIS USER? 
007340’ SETDED 
007342" 002114 WORD UFWHLD-. 
007344’ dooH0s BR sY¥,N-3$ 
007346’ 000004’ ISR RS, QUFWTST :USER’S PREV PRINT COMPLETED? 
007352’ 000020 . WORD CTPRIQ. | 
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PC, LIGHTS 
acPRESY, CPRFWD 
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Sr Uaeh PRINT Fac 
aR 


Int Y 
ini ERROR? 
TER ERROR FLAG SET? 
s nD TYPING FLAG 
INTER ERROR MSG 


;RESTORE FLGWD ADR 
oe A USER PRINT? 
BUSY RETURN 
eer T PRT ERS g SET PRT BSY FLGS 
AREA 
‘i Dara A fon & SHAKE IT 


ee i 
Thea PST sy y RET 


;SET USER'S WA 
‘CONSOLE PRINTER vO FLAG 


ogh al DEDICATED TO USER? 


igen "HOLD INT ENB SET’ FLAG 
557 PRINTER’S INT VEC ADR 
NT ROUT ADR AT VECTOR 
WORD AT VECTOR 
“MAY HAVE TO T INT ENABLE 
: ENABLE 


3N, Y= 
:EXIT TO IN-LINE ADR 


-ASCII /#ER# LST DEV: HW ERR/<015><Ol2> 


- EVEN 


ae ee ee re ee ee ate cea 


SES 0299 


am me a ee 
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DTECAB.P 11 CONSOLE TERMINAL INTERRUPT ROUTINES 


-SBTTL CONSOLE TERMINAL INTERRUPT ROUTINES 


;CONSOLE TERMINAL WRITE INTERRUPT 


BeRerP é 


’ 7 001 CTWINT: J R S 
: BLE Gee BS REST 

i se 2 seed TST ( (a - : ADJUST 4 TO DEV BUF ADR 
sim firew: Gers mf Tee iy COUNT ZERO" 

1 46’ O01 Q CTaRcE ?(N. Y= ) 
2104 007650’ OOS3¢s se DEC (RS)* :DECR Tee/F ILL CNT BY 1, os ia 
a Obes Babich 011106" CTWRCE: MOV SCTECNT, RY ot 0 tnt EEN BUF CNTRL WDS 
cide Direc Gieres ist fea G0 Be ENT ZERO? 
5103 Garbee: tue4 oo0002 Re (RNS CRY) ies BROCOr THE BUF? 
stit aq: Cetera 00024 ce Rey. RM) SN sour START ADR 
sits Boyan" 3 1$ MOVE a(R4)+,RO see TO ECHO 
2114 007702" 005244 INC -(RY) “ADD 1 TO BUF ADR 
2115 007704’ 005344 DEC -(R4) :SUB_1 FROM COUNT 
2116 007706’ OO04S6 BR CTCKCH GO CHECK THIS CHARACTER 
2117 007710’ 012703 011060’ CTWRCD: MOV SCTWCNT,R3 :SET UP ADR OF DATA COUNT 
e118 007714’ 005713 TST (R3) *DATA CHAR COUNT ZERO? 

119 007716’ 001036 BNE CTDODT > (Y,N-CTDODT) 
ciSy DOTTEN? BaS7Na DOOOND CTWABT: BIE BETEBSY<<Ra) HERE We DOING ECHOre? 
5ish res rages Q 3s ‘ eS) 
eles 007732" 004567 000770 JSR RS CTRTRN :GO TERMINATE THE RD FUNCTION 
5ié¢ ree ers oo0002 3 IC SCTWBSY, (R3) i Recet WR acy 
elem 007744" 00571 TST (R3) :THIS A WRITE? 
2127 00774’ 100017 CTWREX : (Y N=CTWREX) 
2128 007750’ 004577 000002’ JSR RS, QUFWCLR *RESET °S WAIT FOR 
gies O077e4 : cir 0 :C 7PRINTER 1/0 FLAG 

1 ’ OO11 . We. 
e131 007760" o4ocoo 000012’ BI SCRUDED, ICSYSFW ;SUPPOSED TO RESET USER DEDICATED? 
sis Or aaB P95 060000 000012’ IC Sc TUBepscmeD, acCSYSFW yt TAY DEDICATED FLAGS 
2134 007776’ 004577 O00002’ ISR RESET USER DEDICATED FLAG 
2135 0100Ke" 000040 . WORD cetiep 
2136 010004’ 001060 "WORD CTWUFW-. 

2137 010006’ 7? 001026 CTWREX: JSR RS, CRTREG GO RESTORE REGISTERS 

2138 b1001¢" oog00e RTI “RETURN FROM INTERRUP 

2139 010014" 3 001000 CTDODT: BIT #CTCREQ, -(R3) “CONSOLE REQUEST BENDING? 
sit Giaee: Balrs BY the SORT a 

std Weep eae CLR (R3) CLEAR WRI Bark T 

2143 010026’ 000734 BR CTWABT GO ABORT THIS WRITE 

2144 010030’ cs: MOVB a4(R3),RO sGET TA CHARACTER 

gi 10034’ INC 4(R3) : INC ENT bara 

1 10040° ¢ 2(R3) ;DECREMENT DATA COUNT 

2147 O10044’ 000004 CTCKCH: ADD #4, RS ‘ADJUST FILL/TAB TABLE ADR 
2148 10050’ 120027 oO00040 CMPB ss RO, #40 THIS A CONTROL/SPECIAL CHAR? 
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CONSOLE TERMINAL INTERRUPT ROUTINES 
103023 BHIS aS :(Y,N-8$) 
000011 che #011, RO 1S’ CHAR A TAB? 
101 ? :(Y N-7S) 
00531 DEC (RS) *DECR CURR TAB CNT BY 1 
Oil b 77774 HOV (RS) 4 (RS) sMOVE CURR 106 CNT pt T@/FILL CNT 
Hees reed MOV 0, = : 8 SPre TO F LL /SPACE CHAR 
1 000015 7§ Prop #015,RO if ia i ie space 
001407 BEQ 95 :(N, Y-9$) 
000033 cHPe 3,RO0 1S’ IT AN ALTMODE? 
ll :(Y¥,N-11$) 
ll oooo44 MOVB  8044,RO -SEt UP “$" CHARACTER 
005315 8$ DEC (RS) *DECR CURR TAB CNT BY 1 
1002 BNE 118 *CNT = ZERO? (Y,N-11$) 
012715 000010 9 MOV #10, (RS) s RESTORE CURR TAB CNT TO 8 
7 001020 11$ CMPB RO, CTF IO ‘FILLS AFTER THIS CHAR? 
1 BNE l ?(¥,N-13$) 
Bese? boone Bourse HOV. ETEGAR’ CTESEH Sef UE EILL Count 
Ot eres 13S: vB a (R23 : eH to DEVICE BUF 
0007 12 BR CTWREX :GO TO INT ROUT EXIT 
;CONSOLE TERMINAL READ INTERRUPT ROUTINE 
CTRINT: JSR RS, CSVREG -GO SAVE ALL REGISTERS 
MOV aCTFLGW,. RY ;SET UP ADR OF CONS TERM FLGWD | 
NOV CTRORA, Re iE! UP DEV REG'S GOR 
BIC & sre Ro : acc OROee ett 
LOWCAS: CMPB RO, #41 :THIS A LOWER CASE ALPHA? 
BLO o¢ :Y,N-10S 
ve R #172 | 
BIC #40, RO ;RESET LOWER CASE BIT 
10S: CHP RO, toes “THIS A CNTRL/S? 
S —-SCTWAIT. (RY) baer coe “WAIT” FLAG 
af eFRDEX sil 3 eine ni EIT 
20S: IT SCTWAIT, (RY) :SOFTWARE "WAIT" FLAG SET? 
ag Set uarr. (RY) Rete SF ue “arr FLAG 
etRbeN : Reset Int EXI 
30S:  CMPB RO 8017 s THIS A CNTRL/0? 
fei 904 010000 000012’ Be _ ital te SUPPRESS TYPING FLAG 
OO0Mbb BR x ‘GO TO INT EXIT 
14 001000 40$: BIT SCTCREQ, (RY) : QUEST FLAG SET? 
weApe? 000003 BAe RD ond StS uGR e CNTRLYC? | 
Bea’ CTRL TN Y-CTRL c) . 
032714 000001 BIT SCTRBSY, (RY) -IS'RD BUSY FLAG SET? | 
01455 Beg :(Y N-CTR x) 
12705 011070’ MOV #CTRADR, RS : SET OF READ INFO 


a + ee  -- 


mn a a 


ee Bite con COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 21-2 SEQ 0302 
DTECAB.P CONSOLE TERMINAL INTERRUPT ROUTINES 


2205 010322’ 120027 000025 CMPB =s- RO, 8025 -IS IT A CTRL/U? 
2206 010326" 001502 anes BEQ craCTU :(N, Y-CTRCTU) al 
Soh, BIBS yA ata Rn aes 
2209 010336’ 032714 000100 BIT 8CTRRUB, (R4) *RUBOUT FLAG SET? 
2210 010342’ 001 BEQ 50s : (Y,N-SOS) 
geil Biot ? J CTRPEB ‘Put A BACKSLASH IN ECHO BUF 

le 610350" 1 .BYTE 139.0 
2213 010352’ 042714 000100 BIC SCTRRUB, (RY) ;RESET RUBOUT FLAG 
2214 010356’ 110035 SOS: MOVB RO,a(RSS+ sMOVE RD DATA for ey 10, USER ADR 
2215 010360’ O00S24S INC ~(RS) SINCR Powe 
ssi) BIBS bgicey 007s a ieee ome 

, :(¥,N- 

e218 001 If OF MIMIC 
geen 910370" 004567 000352 Sis: JSR RS, CTRPEB ;PUT CR/LF IN ECHO BUF 

1 610374 O15 Ole BYTE 015,012 
sess 555 SiS: MOV #5015, R3 ;SET UP_CR/LF_DATA 
geet a JSR RS, CTWPEB ‘PUT THEM IN THE ECHO BUF 
2226 010376’ OOO4I6 4§ ;GO PROCESS RD END 
2227 O10400’ 122700 oo0dle S2S:  CMPB #012,RO 51S IT A LINE FEED? 
2228 O10404’ 001771 BE cis :N_Y-51$ 
2229 010406’ 110067 o00004 MOVB  RO,53$ CET UP RD DATA FOR ECHO S/R 
2230 010412’ 7 000330 JSR RS; CTRPEB *PUT CHAR IN ECHO 
2231 010416’ 53s: WORD XXX 
soaepitice, po Cee CTRBex FF OU ONT ONC TROEX) 
soa 10424" esas o00015 oo00002 MOVB #015, d2(RS) Pace Mee Oe," If SIRO 
ses 001 -IF OF MIMIC 
se37 010432’ 000756 er 51S GO ECHO CR/LF & TERMINATE READ 
2239 -REPLACE CODE IS 000755 
2240 000 .ENDC 
2241 010434’ 052714 O00400 sug: BIS 8CTRDON, (RY) ;SET READ DONE FLAG 
seve 01040" 105714 TSTB CRY) : at ECHO FLAG SET? 
seua ateet Aeces 000256 Bo OF ATR G0’ TERM TRETE THIS READ 
22°45 O104S0’ 004567 000364 CTRDEX: JSR RS; CRTREG "RESTORE ALL REG’S 
seu 010454’ oo0002 RTI *RETURN AFTER INTERRUPT 
eee s;RUBOUT KEY PROCESSING 
2250 O104S6’ 032714 000100 CTRRKY: BIT #CTRRUB, (R4) ;RUBOUT FLAG ALREADY SET? 
2251 O10Nbe" 001005 BNE S$ :(N, Y-56S) 
2252 010464’ 052714 000100 BIS #CTRRUB, (RY) ‘SET THE RUBOUT FLAG 
ge53 10470’ ? ISR RS, CTRPEB GO PUT BROESL ASH IN ECHO BUF 

10474" «134 .BYTE 134.0 
2255 010476’ 021565 000004 S6s: CMP (RSS, 4(RS) ;CURR DATA ADR = ORG DATA ADR? 
2256 O10502’ 001 BNE sy N +N 588) 
ge57 ot ’ 7? 0900236 ISR RS, CTRPEB KSLASH FOR ECHO 
10510’ 134 -BYTE 134 

2259 010512’ 000417 BR CTRECL :GO DO CARR RET 8 LINE FEED 
2260 010514" Ses: DEC (RS)+ :DECR DATA ADR BY 
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TERMINAL INTERRUPT ROUTINE 
000006 MOVB 
INC 
000216 JSR 
: . WORD 
BR 
pond CTRCTU: MOV 
MOV 
000176 JSR 
125 BYTE 
000170 CTRECL: JSR 
Ole .BYTE 
000100 BIC 
BR 
000012’ CTRLC: it 
od2000 000012’ BIT 
BEQ 
000001 BIT 
BEQ 
00 BIS 
000104 JSR 
041536 CTRCRQ: MOV 
000122 JSR 
001090 BIS 
000022 MOV 
ADD 
000001 000012’ JM 
140000 000020 BIT 
BEQ 
TST 
MFPI 
723: CLR 
010700’ wy 
000100 O0024%0 74S: ett 
100000 000012’ BIS 
001000 BIC 
000014’ JMP 


000400 O00le2 CTRIRM: 


BIT 
BEQ 


a-(RS) , 708 ;GET CHAR THAT IS BE ,' DELETED 
~(RS) jNCRSTENT DATA C Y 1 
RS, CTRPEB GO SET UP DELETED CHAR FOR ECHO 


TROEX 00 TO INT ROUT EXIT 
;CONTROL ’U’ PROCESSING 


4(RS), (RS) ORG DATA 
StRED eRe) SE bp She Bata COUNT 
RS, CTRPEB oA - ORO st IN ECHO BUF 
RS, CTRPEB wen “CR/LF” IN ECHO BUF 
O1S O1 
SCTRRUB, (R4) ;RESET RUBOUT FLAG 
CTRDEX :GO TO INT ROUT EXIT 
;CONTROL “C” PROCESSING 

aCSYSFW REQ BEING PROCESSED? 
CTRDEX it Y-¢ ROEX) 
#CUSPGR, CSYSFW “USER PROG RUNNING? 

TRDEX 2(Y, Rect RDEX) 
8CTRESY, (RY) ?1S’RD BUSY FLG SET? 

TRCRQ TRCRQ 
SCTROON (RY) READ DONE FLAG 

, CTRTRM GO TERMINATE READ FUNCTION 
sCONSOLE REQUEST RECEIVED 
#"tC,R3 ;SET UP “*" 8 “C” CHARS 
Ct -GO PUT THEM IN ECHO BUFFER 

SCTCREQ, (RY) *SET THE CONSOLE REQ F 

18. .-(SP) :SET UP STK 
SP, (SP) :AT TIME OF INT 
#MMVER, ICSYSFW ‘RUNNING UNDER MEM MGMNT? 
725 :¥ N-72$ 
#140000, 16. (SP) *WERE WE IN USER MODE? 
725 :¥ N= 
(SP)+ *REMOVE OTHER GOR 
SP *GET USER’S STK 
(SP) “SET PROCESSOR PRIORITY TO ZERO 
#74S, -(SP) 
#100, ACTHORA ; CONS TERN WRITE INT ENABLE SET? 
#CTROBP, ICSYSFW ‘ort CONS REQ BEING. PROC FLG 
#CTCREQ; (RY) sRESET CONSOLE RE 


:G0 TO MPG USER INT. ENTRY 


;CONSOLE TERMINAL READ TERMINATE S/R 
#CTROON, CTFLGW ;1S THE READER DONE FLAG SET? 
1$ Y,N-1$) 


. 
, 


oe re a ee ee + + 


SEQ 0303 


eee 


A a le 2 


010736’ 
010744’ 


SSESerr 


ae 


bet pet 
<£rT 


bo pat fee ee Pe Po fi Pao fe paw fw be be Pm pee Pepe —s 
oo 


QoOo0O0OO0 000000 
be bt fe pe ee fe 


8 


COMMON SECTION FOR AL 
CONSOLE TERMINAL INTERRUPT 


042767 O00441 000112 
o0020S 


oo 


SRERESERS 
pReasgece 


is 


; 


000100 000124 


CTRPEB: 


CTWPEB: 


70S: 


80S: 


CTRPEX: 


CSVREG: 


CRTREG: 
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TINES 


BIC SCTRBSY+CTRDON+CTEBSY,CTFLGW _ ;RESET READER FLAGS 
RTS RS sEXIT IN-LINE 

sCONSOLE TERMINAL PUT IN ECHO BUFFER S/R 
MOV (RS)+,R3 :GET CHARACTERS TQ STORE 
ISTB (RY) 115 £ G SET? 

CTRPEX *(¥ NC 
MOV RS,-(SP) SAVE WORK REG 
MOV aCTEIAD, RS - SU OF ECHO BUF CNTRL WDS 
CMP (RS), 6(RS) ‘I ADR AT END OF BUF? 
BNE 80S 2(Y Ng0s) 
SUB #24, (RS) :SEt UP BUFFER START ADR 
nOvE R3,0(R5)+ SHOVE CHER TO ECHO BUF 
INC -(RS) 00 I 1T 8 Soa 
CLRB R3 AR CHAR JUST STOR ORED 
ia RR pas ER cra TO HORE? 
BNE 70S 
MOV (SP)+.R5 Regt YORE. HORK REG 
BIS #100, ICTWDRA *SET WRITE INT ENABLE 
RTS RS “EXIT IN-LINE 
s INTERRUPT SUBROUTINES 
;SAVE REGISTERS RO THRU RS 
MOV 4 -(SP) ;SAVE REGISTERS 0 THRU 4 
MOV Ra’ (SP) *RS IS SAVED BY JSR T 
MOV Re, -(SP) THIS SUBROUTINE 
MOV R1,-(SP) 
MOV RO; -(SP) 
MOV RS; PC sEXIT 
RESTORE REGISTERS RO THRU RS 
TST (SP)+ ; TAKE THIS JSR’S RS OFF STACK 
MOV (5P)+,RO ‘RELOAD REG’S 
MOV (SP)+/R1 
MOV (SP)+' Re 
MOV tae eo 
MOV (SP)+,R4 
RTS RS :RESTORE OLD RS 8 EXIT 


{ 


DTECAB.P1i CONSOLE TERNNAL INTERRUPT CONSTANTS 
| 
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2367 .SBTTL CONSOLE TERMNAL INTERRUPT CONSTANTS 
| 5370 011056’ ocoooo CTFLGW: .WORD 0 SCONSOLE TERMINAL FLAGWORD 
| 5p 00001 CTRESY= ; 
| e333 D0000: i - 2 $ RITE. BU 
2374 DO004C i ale TRING 
| BR evar ECHO 
| 232 000400 = 400 ; aes 
| , 
| 230 ea ctu: $008 : up a eget cme 
e382 SCTWCNT MUST FOLLOW CTFLGW 
EB tues: a ce: SB PSM TPR ae coun 
| ro O11064" 000000 CTWUFW: /WORD 0 ech WRITE USER FLGHD ADR 
| 2388 011066" 900000 CTRCNT: .WORD 9 :CT RO DATA COUNT (CURRENT) 
| 3390 GLigre” * HR OB eT BB Bata COUNT TORTC). 
331 11074 oooD00 “WORD «0 :CT RD DATA ADR (ORIG) 
2393 
Be Him aa TIGL 8 st ig FI 
es% 011102" o00010 “WORD 10 CT WR CURR SOFTHARE TAB CNT } 
} 
S99 | oooge4 CTEBFL 
So quips Gu crema: bike femur ER BETER snPuT von ! 
11110" 011114” i ACR 
Suns Oliiie’ O11 i460" “WORD  CTEBUF+CTEBFL sce BE GuTPUT, | 
ev04 011114" ooode4 CTEBUF: /BLKB  CTEBFL !ECHO BUFFER 
a7 SCONSOLE TERMINAL CONSTANTS | 
2409 O11140’ 177560 CTRORA: .WORD 177560 CONSOLE TERMINAL RD DEV REG ADR 
e410 Ollie 000060 CTRVEC: -WORD 60 sCT RO Paton AOR a 
Be AUS be ae EU ean | 
att Brite” Bonen) ETWOR “HOED Sco :€T WR ARTont fy Ofever (BRY) | 
e416 O1115¥° gooo02 CTFCNT: .WORD CT WR ETLL COUNT 
e417 11155" CTFCAR: /WORD :CT WR FILL GHAR 
e418 11160 12 CTFID: [WORD 012 :¢T WR FILL 1.0. CHAR } 


| 0 PRINTER (LP11,LS11,LV11) INTE 
-SBTTL PRINTER (LP11,LS11,LV11) INTERRUPT ROUTINE 
548 EE A a a 


e421 
| Bags i SSS Trans Cala restart Heit Ton 
| ees 
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S59 eo crea NY ABOVE THT ait UC Be, TRNCHTED, TERMINATION 
553 INCLUDES. THE RESETTING OF USER THAIOT’ B-°CTPRIO’ 
ae © SEFFELLFSALRKSSRAASERALSLSLERASSAELERASARALELELRALARASRRRASHSLLESS 
Se Gilt: Hem Gly =a PRT iy ved = 
Be Hue tea? -_ . ta 
S433 Olisve’ 105327 ALB (PCIe Raine A TAB? 
a oH > Sorgel weaken ee RpRnoT iN, ¥-CPROOT 
11210” li CPRIGN: TS (RI) :CHAR CNT = 0? 
Soe O1sia* OOSST Bee. fRLD EECA CNT 
ents OLiei¢" 415102 MOVE = 9-(R1), Re 1 rad 
Se Glee (eee ooo ee ee nes Rod | 
e448 011556" 103413 BLO —s- CPRCTC :N, Y-CPRCTC 
end Olle): Oise? cCPRNCK: DEC (PC) EDECR LINE CHAR COUNT 
Suey Bisa" here ; ar EPRIGN ;ROOM LEFT? (Y.N-CPRIGN) | 
ase 01123" 106367 eens ASLB = (PC) + UPDATE RUNNING TAB COUNT 
aa Oh iee" ; iad deratc ;CNT EXHAUSTED? (N,Y-CPRRTC) 
11e44" 11 : MOVB R2,2(RO) SEND CHAR TO PRINTER | 
ce) BIESY Bisse 7 OE esc ET EE TN Beer : 
e459 011256’ 120227 000011 CPRCTC: CMPB RB, #011 CHAR @ TAg? 
2460 Ollebe’ 001420 BEQ TAB Y-CPRT | 
evel Olies4’ 120227 000015 CHB Re, #015 18 IT A CARR RETURN? 
as Oligre" 000012 Cre feraoie it tine Beg 
Sues 011900" Ietee? 000014 cree e014 i FORH FEED? | 
Be lige: Sane IGMP rit Soames Seams TG jue 0 Ce | 
’ : ; 
z70 Oi Les" 016767 177710 177652 CPRTAB: Rov cPaBc,CPRTEC ae UP CURR. FA COUNT ) 
bie 1136" " BR CPRACK ; CHECK FOR ROOM 
2474 11340’ 005767 000062 CPRTRM: TST CPRFWD sTHIS @ USER PRINT? 
ev7e Olga’ 100017 ; BPL 10$ =108 
e476 11346 77 900002 ISR RS, MUFWCLR iRESE USER'S WAIT FOR 


eee 1-DTECA-B 





040000 000012" 
064000 000012" 
000002" 





SECTION FOR ALL MPG 
PRINTER (LP11,LS11,LV11) INTERRUP 


004000 000012" 108: 


CPRFWD: 


CPRADR: 
CPRCNT: 
CLISTI: 
PRTDRA: 
PRTIVA: 
PRTPSW: 


UF WHLD : 


i 
1) 2 1) 
y 


ooo +- 


5 5555585 555 


mn wn ee en ce ee a en ee 2 ee oe es ee ++ 


i 


: 


MACY11 27(732) 
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;CONSOLE/PRINTER 1/0 FLAG 

; TO RESET USER DEDICATED” 
T SYS’S DED. FLAGS 
DEDICATED FLAG 

; INT BEING HELD SET’ 


NA Y= 
?RESET PRINTER’S INT ENABLE 
:RESET PRINTER” 5 BuSY FLAG 


;PRINTER F' 

: PRINT ERAoA 

; ERROR Hoc ISSUED 
; Cen PRINT FUNCTION 


sLIST Device INFO STORAGE 
CODE WORD 


f NT UNIT 8 
NT VECTOR ADR 
: PS WORD 


;#;USER FLGWOD ADR HOLD 


re ee ee ee ee ae ee ee Se ne: ee ee ee ee ee 


Se + a een ene eee ene eee — 


ce a oe re ns se ee er es er re = ee ee er ns enn nee ee es es ee | + ee + eee "7 
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| OTECAB.P1l PAPER S 


2 we we + + 


TECAB. TAPE HANOLER PARAMETER TABLE & ROUTINE 
eth .SBTTL PAPER TAPE HANDLER PARAMETER TABLE & ROUTINES 
i 
2516 
517 011460" 011532” PTPARM: . PTBOOT :PAPER TAPE VECTOR TABLE 
1 i - + é pT 
1 1 ; 
| 11466’ 011532” x PTDEL 
| 29521 011470" 011556" “WORD  PTCLOS 
«S255 HS nite ‘ioe BTEOOK 
| ° 
sec net ® 11238. y PTALLC 
| 525 011500’ 011604" “WORD DVR 
11502’ PTUNIT: . IT 
«BRS BERS. BB Bano BYEREG: “kone OO tT GHND REG ADR 
2529 alisig 000776 Pra WORD frie ; COUNT 
’ : i : 8 
af fet ii ee | a 
E i . + 
Saat Bitals, Hees pie: -HBRR Od LAPP Rive cormro—rove ve TRIS, (R2) 
ptt ese, SoC EToeTR: “tORD  PTDBLK aie GIL 
«BB Ores Bidado PILBLR: “ORD it RE RRR 
2538 011530’ PTPEND: 
o33 011530’ oo0000 PTDBLK: .WORD 0 :0 INDICATES NON-DIRECTORY DEVICE 
2s41 
ete ;PAPER TAPE ROUTINES 
2544 011532’ PTBOOT: 
2545 011530” PTDIR: 

O1153¢" BIZERO: F 
cay 11532" 000167 174660 PTDELT: JMP INVCMD ; ISSUE INVALID CMND ERROR MSG 
2548 011536’ 012765 000001 177744 PTLOOK: MOV #1, X1STBK(RS) :SET UP DUMMY BLK @ IN DOB 
eov8 ae 062716 900002 vinnie ADD 82, (SP) :SET UP SUCCESSFUL EXIT | 
2551 011550’ 012765 000001 177750 PTALLC: MOV 81, XLSTBK(RS) sFAKE A BLOCK 8 
2552 011556’ 000207 PTCLOS: RTS PC ‘EXIT IN-LINE | 
o554 | 
e555 ;DEV ADDRESS SET UP ROUTINES | 
2557 011560’ 012767 177550 177716 SETPR: MOV 8177550, PTCREG ;SET UP PTR DEV REG 
oo58 011566" pog403 BR PTCON :GO TO COMMON POINT 
oS 11570’ 012767 177554 177706 SETPP: MOV #177554, PTCREG ‘SET UP PTP DEV REG ADR 
2560 011576’ 012700 011460" PTCOM: MOV 8PTPARM, RO -SET UP PT PARAM TBL ADR 
2561 011602" 000207 RTS PC ‘EXIT IN-LINE 


oa ae ne ee ee oe ee + re eee = 
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TAPE HANDLER DRIVE 


177614 
167144 


174316 


177622 


167222 
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oe 
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-SBTTL PAPER TAPE HANDLER DRIVER 


PTOVR: CLR (PC)+ 
PTNOUT: .WORD OQ 
HOV XCN(RS),R3 
TST (Re)+ 
BMI Res 
MOV 8BUF +2, R1 
MOV #510. 
MOV XCOCRS) ,PT2 
_— es PC PTINER 
PTe: Nee , 
BNE PT3 
TST PTNOUT 
BNE PT3 
TST XWCTR(RS) 
BNE PT3 
CMP XCO(RS) ,PTRD 
BNE PT3 
aa 
PTI 
PT3: INC PTNOUT 
BEG PTDONE 
C RO 
BGT PT 
MOV #1 
PTDONE: INC xWETR(RS) 
RTS PC 
PTIMER: CLR (PC )+ 
Bronte 0 
PTIMEL: BI #100200, (R3) 
BMI TOUT 
BGT TIMEX 
CMP PTCNT, PTCNT 
CMP PTCNT.PTCN 
INC PTCNT 
BNE PTIME1 
TST NOUT 
BEG PTERR 
CLR 


PTOUT: 

PTIMEX: RTS PC 
PTERR: JMP DEVERR 
-IF DF MIMIC 

ALP ie LOC600 

ALFCT1= ALT £00077. 72 


IF 
ALQUNI= 31.-ALFCT1 
- BLK aL GUL 


;CLEAR DATA ae FLAG 


RET Tate Rec 


;SET UP DATA REG AOR 
; ERROR T SET? 


jack 1 BATA XEERRED FLAG 


tie (Y ewPTL) 


SF ase CNT 


Pe IN-LINE 
: T Y ER 


if Bal 


ea 


sINCR DELAY COUNTER 
: TIMED OUT? (Y,N-PTIME!) 
:DONE ANY OUTPUT? 


:Y,N-PTE 

:EOF ON THE DEVICE 
sEXIT IN-LINE FROM S/R 
:GO REPORT DEVICE ERROR 


OR DONE 
T? (N, Y-PTOUT) 
(N, Y-PTIMEX) 


;ALIGN TO NEXT Se WORD BNORY - 9 


- ~~~. 


a 


td 


-DTECA-B COMMON SEC 
BABER TAPE 


901 
000 


HANDL 


TION 
ER DR 


F 
I 


OR ALL MPG EXECUTIVES 
VER 

-ENDC 

-ENDC 
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| MAINTDEC-11-DTECA-B 


| OTECAB.P11 


| pepe 
| 623 


LOAD MEDIA HANDLER 


000000" 


COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 2S 


-SBTTL LOAD MEDIA HANDLER 


EMOLTB: .WORD 7016 ;PAPER TAPE (PC11) MOL CODE 
PTSUAD: . SETPR ; TAPE ROR (PC11) SU ADR 
‘ 7014 ;PAPER TAPE ROR (PR11) MOL CODE 
-WORD SETPR ;5U ADR 


Seat es eres ee wees es 


;THE REST OF THIS TABLE IS CONTAINED IN 
;THE FIRST PART OF THE LOAD MEDIA HANDLER. 


-CSECT HANDLR 


THE LOAD MEDIA eit wo WILL RESIDE 2. THIS 
AREA OF MEMORY AND WILL BE FOLLOWED IN MEMORY 
BY THE ONE TIME HOUSEKEEPING ROUTINE. 


THE LISTINGS THAT CONTAIN THE VARIOUS HANDLERS WHICH 
OCCUPY THIS AREA ARE: 


TCMPG = DTEOQA-? - TC1l HANDLER 
RKMPG = DTE1A-? - RK11 HANDLER 
TMMPG = DTE2A-? - TM11 HANDLER 
THMPG = DTE3A-? - TMO2 HANDLER 
RXMPG = DTEYA-? - RX11 HANDLER 
RBMPG = DTESA-? - RPOY HANDLER 


' 
‘ 
| 
| 
} 
\ 
| 
| 
} 
' 
1 
{ 


| MAINTDEC-11-DTECA-B 


DTECAB. 
2652 
2653 
2654 
2655 


2657 
2658 
2653 
See 
2662 
2664 
2566 


2667 
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COMMON SECTION FOR ALL MPG EXECUTIVES 


MPG EXEC TEMPORARY ONE TIME HOUSEKEEPING 
-SBTTL MPG EXEC TEMPORARY ONE TIME HOUSEKEEPING 


Sree 


oo0002 
000100’ 


000124" 
011146’ 
011140’ 


000102 


000004 


-CSECT EXHSKP 
HKLOCZ: 

. IF NOF MIMIC 
UFWSET: .WORD  XXXX 
UFWCLR: .WORD XXXX 
UFWTST: .WORD  XXXX 
BINASC: .WORD XXXX 
BTASLB: .WORD XXXX 
CSYSFW: .WORD USRINT 
USRINT: .WORD XXXX 
MPGBGN = 


MACY11 27(732) 


a nn ee . 
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ee WILL BE_ LOADED STARTING HERE OR THE 


T 32 WORD BOUNDARY IF USING MEM MGMNT. 


Tey OUR a PRE TAIS CODE 


ng TOADED” into "THIS A AREA. 


;FORMAT VECTOR LOCATIONS O THRU 276. 
;SET THE TO 0. 


T 
;TEST IF CONSOLE TERMINAL IS PRESENT. 
INITIALIZE CONSOLE TERMINAL ADDRESSES. 


E1THKP: CLR RO 
CLR (RO)+ 
CLR (RO)+ 
MOV RO. RI 
TST (RI )+ 
10$ MOV R1, (RO)+ 
CLR (RO)+ 
20$: ADD #4,R1 
30S: CMP RO. #300 
ee ORD HO 
Bite 
BR 20$ 
40S: MOV #298102 
CLR -(§P) 
Nov sTTYTST, -(SP) 
TTYTST: MOV STTYTRP, 84 
TSTB aCTWDRA 
BMI FMTVCT 
TTYERR: MOV #CTRDRA, RO 
HALT 


poet LOCATIONS 0 8 2 
;TO HALT’S 
SET LOCATIONS 4 THRU 276 TO 


AND 
69 NOT CHANGE LOCATIONS 


T_ TRAP 
HERE FOR WRITE? 


R INR 
ER NOT The 
HANGE CON 


SEQ 0312 


= a ee ee SS eel 


a a eee eee ee ee OOO OOO COO Oa maa ee ee 


ee re es ee nm enn re ne ee ES ES a ee 


eee E Lior COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 26-1 SEQ 0313 


CAB EXEC TEMPORARY ONE TIME HOUSEKEEPING 
2708 -TERM PRESET INFO 
ta OpoTSa 000114" TTYTRP: BEY BTTVERR, (SP) SET Op ERR AT AOR 
5510 ese Meee ; ey ‘ Petr FROM T 
2712 000132’ 012700 011142’ FMTYCT: MOV SCTRVEC, RO -SET UP CONS TERM RD & WR 
2713 000136’ 012001 MOV (RO)+, Ri : Int VECTOR yOcRT ONS 
2714 000140" OL 1 010162’ MOV SCTRIAT, (R1)+ STORE RD ADR 
2715 OOO144’ Oledel MOV (RO)+, (R1)+ : RD WORD 
2716 OOC146’ TST (RO)+ : S WR DEV REG ADR 
2717 000150’ 012001 MOV (RO)+, RI “GET WR INT VECT 
e718 0001 52 ievel 007626’ MOV eC TWIAT (R1)+ set WRITE INT ROUT ADR 
gi8 900156’ O1e021 MOV (RO)+, (R1)+ STORE WR PS WORD 
e7el 
o7ee s ISSUE EXECUTIVE’S TITLE MESSAGE 
ere 000160; 7 005654’ ISR RS NES ; ISSUE PORTION OF MSG THAT 
hO0164’ .WORD = EXCT “15 IN THE LOADER OR ER 
2726 OO0166’ OO4S67 OOSESY’ JSR RS. MES : ISSUE TRAILING PORTION 
LA 000172’ OC2040’ .WORD EXCIDT OF THE 
ae sCLEAR MEM 8 DETERMINE MEM SIZE 
2732 000174’ 012737 000236’ OO0D04 EHKMEM: MOV SEHKBAT, a84 :SET BUS ADR TRAP ROUT ADR 
2733 00202’ 016700 001136 m MOV LINIT+2, RO :SET UP END oF EXEC ADR | 
533d 10° : oe (RO)+ i BOER a) MExT f BORON 
273% O0021l2’ 020027 160000 CMP RO, #160000 ‘REACHED END OF MAX MEM? | 
2737 000216’ 001373 BNE 1 :Y N-10S ! 
e738 00ee0" Gende? 100000 EMFND: CMP RO, #100000 ;MEM _J5K_ WORDS OR LARGER? 
DOee4’ 1 BLO EINSFM ?Y N-£ INSFM 
2740 000226’ 005740 TST -(RO) “SET UP LAST WORD ADR 
2741 000230’ 010067 oO00%66’ MOV RO, ENOMEM ; SAVE IT 
ene pod!e34’ 000410 BR EGTDAT :GO TO GET DATE ROUTINE | 
ad . T: Vv (SP) . TACK 
Sue Goose’ pooars Codec a ee iROTIRR BETER oUt OF MEN TRAP 
crue 000244’ 004567 O0SES4’ EINSFM: JSR RS, MES ; ISSUE INSUFFICIENT MEMORY 
Sys fooses: yon ISUFR Rar 
nOpeSe’ HALT ; INSUF MEM HALT 
e750 000254’ 000747 BR EHKMEM -GO CK MEM AGAIN 
2752 
e753 GET TODAY’S DATE & PACK INTO DOS COMPATIBLE FORMAT 
Spee 000256’ 005654’ EGTDAT: JSR RS, MES ; ISSUE “ENTER DATE” MSG 
S7e9 BonSes” OOucE?. jHORO EDM 
’ 7? 007124" JSR CTRD s ISSUE READ FOR THE REPLY 
2758 000270’ 001024 -WORD EKYBUF-. | 
eR ret nov bi | 
’ 01 001314’ 001010 MOV KYBUF , EKBPTR : INITIALIZE REPLY DATA POINTER 
2761 000302’ 004767 001144’ JSR PC, ATOI :GO SCAN FOR DAY VALUE 
2762 000306’ 005702 TST R :1S IT 0? 
2763 000310’ 001527 BEQ EDATER :N, Y-EDATER 


| 
| 
| 
| 
| 
| 
| 


eres 
er bb 
a4 
5070 
e77e 
2773 
e774 
ae, 
2777 
2778 
2779 
2780 
e781 
2782 
2783 
e784 
2785 
e785 
27390 
sah 
2733 
2744 
e7S 
ie 
27398 
2739 
2800 
2801 
eece 
oo 
280s 
2806 
2807 
coe 


es me 8 re oe ere, 


DTECAB-B11 MPG EXEC’ TENPORAR 


000072 
G00320° 004767 O00212 
; SARL SS 


£ 
—— 
oe 
oo 
—— 


S: 
rvs) 
= oa 
> > 
- -_=- 
> > 
~ - = 
A awn 
7 a AY 
= 
a ss. 


z 
£ 


sSRERERSEEEE 
g 


ree ey 


NOO44L 
rite 
tt fh? 
> a 


es bes 


— 
WOnrNOULWrreO 





BROoooH wos 


oe 


hE EHS 


338: 


36S: 


ee ee ee ee 


3 


Spun h kd task f= 


Stat f= 


JSR 


ee beiee tine tit Pert | 


R1, SEMONTB+8. 
40g 


coe RO 
2, #40 


(RO), s’- 
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;SAVE DAY VALUE 
aye FOR ie le PPED 
no REST OF CHAR’S 


S MONTH’ of OF DAYS 
ADO It INTO RUNNING TOTAL 


aT KYBO DATA PNTR 


;GO CK NXT MONTH 


;DECR CNT 
sC 3 CHAR’S? (Y,N-208) 
; STORE DATA PNTR 


'D0 SELECTED DATA SKIP 

SCAN 8 T YEAR VALUE 
‘GET # OF DAYS IN THIS MONTH 
:# OF DAYS ENTERED TOO LARGE? 
iY N-36$ 

stats A LEAP YEAR? 

515 TH "FEBRUARY" 

i DAY = 29? 

iY, NED LEAP YEAR? 

HIS NON MONTH MARCH OR LATER? 
TOT FOF R FEB 29 


ee ? in dedoes 60$) 
S00 YEAR INCR VACUE TO RUN TOT 
*DECR YEAR VALUE 


560 CK FOR pase 

: RUN TOT AS M/D/Y CODE 
;00 y ED DATA SKIP 
;RESET L Mg NATOR FLAG 
LF auINA E DATE REPLY? 


a LF TERMINATOR REPLY FLG 
GO SET UP FOR LOAD DEV 


GET CURR DATA PNTR 
;DATA CHAR A SPACE? 


3N,Y-11 
;A MINUS SIGN? 


SEQ 0314 


eee + ee - e-- — 


a ees ee re 


Beres bess keaaiisiiany iia itcads 
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SEXIT INCLINE 
; ISSUE ’INV DATE’ MSG 
;GO TRY AGAIN 


; INITIALIZE FOR SYSTEM LOAD DEVICE 


; INITIALIZE FOR NO LINE FEED 

:GET Leb DEV UNIT 8 

tL V UNIT : STORAGE 

"IS THERE ONE? (N. Y-70$) 

ISSUE MSG TO REQUEST ONE 

Stage 8 CONVERT To BINARY 
ANY DAT celvtoe 


‘NOV BR DATA RC’VD TO CORRECT REG 
;UNLT ate TOO ? 


Tesue ce ERROR MSG 


;GO ASK AGAIN 
;STORE AS LOAD DEV DEFAULT UNIT 8 


;STORE AS CURRENT UNIT # 
sLINE FEED TERMINATOR? 
Ser LF TERM FLG 


;DETERMINE IF MEMORY MANAGEMENT IS ON THE SYSTEM AND 


ASK IF THEY WANT TO USE IT. 


;IF USING IT, ALIGN MPG START ADR TO A 32 WORD BOUNDARY. 


;SET_ UP BUS ADR TRAP ROUT ADR 
TEST IF MMMRO REG IS THERE 


;IF NO TRAP, WE DO THE FOLLOWING 


MAINTDEC-11-DTECA-B _ COMMON SECTION FOR ALL MPG EXECUTIVES 
MPG EXEC TEMPORARY ONE TI HOUSEREEBING 
o00ss4’ 001002 BNE 1208 
DOOSSE ‘ 110$: ANC : 
0562’ 01 000524 120$: MOV RO, EKBPTR 
* 000207 RTS PC 
* 904567 O0SESY’ EDATER: JSR RS, MES 
000574’ 001504” .WORD EDERMG 
000576’ 000627 BR EGTDAT 
000600’ 00S003 ESYDSU: CLR 3 
pened 9 MOV (PC)+,RO 
1 LDUNUM: .WORD -1 
000606’ 100020 BPL 70S 
000610; BONSb? o0S&S4’ 60$: JSR S 
14° 001745’ : LOUREO 
0006 16: 004767 001240" JSR PC, OATOB 
messy 506708 Re, Bos 
000526’ 001410 BEQ 70S 
b06 32” 40499 000010 CMP Rh Re 
: Oo ” oos6s4’ Be 78 
; BOLPee” i 
: 10067 70S Rov Ry CFTCH +2 
, Bt BOE? eres at Soe Rg’ SAVETS 
. 010067 0000066 HOV RO; SPrctitse 
‘| reese CMPB 12. R3 
* 901002 BNE CKYMM 
’ 7? 000156 INC DATELF 
:IF IT IS, 
000702’ 012737 001050’ DOD004 CKYMM: MOV SMMTRAP, 284 
000710’ 005737 177572 TST JeMMMRO 
ie rr 
’ 007124" j CTRO 
000726’ 000366 .WORD EKYBUF-. 
000730’ 000025 WORD ol. 
0007 Je" 004767 001376’ ISR BC, CKRPLY 
000740’ 000401 BR 855 
000742’ 000424 BR MMCKRT 


SASK IF THEY WANT TO USE MEM 
‘ISSUE READ FOR THE REPLY 
;CHECK FOR A REPLY 

DATA 


BR IF INV 
BR IF Y, <CR>, OR <LF> 
R IF N 


SN 


PERCE CELE PERE CEh er eis LES eae 


ad pe bo he RS 


MAINTDE 
DTECAB. 


BBB BE BBB BB 
WONMU£CUWMHO 


petits 


‘Bb 
28 


= BReTaSeRee 


888888 


to 
bee 
oO 
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;GET CURRENT MPG START ADR 


;CHANGE MPG’S FILENAME 
GET CURRENT MPG START ADR 


-IS IT ON A 32 WD BNORY? 

;IS IT ON A 2048 WD BNDRY? 
Y-MMCKRT 

gave CURR ADR 

;ALIGN ADR TO NXT 32 WD BNORY 

;ALIGN ADR TO NEXT 2048 WD BNDRY 


;GET POSITION ADJ FACTOR 
‘STORE IT FOR MPG’ : 1 TIME HSKP 
“UPDATE MPG’S START ADR 
;UPDATE MPG’S LOAD ADR 
sREPLY BYTE A LINE TERMINATOR? 
GET NEXT REPLY BYTE 
s1S IT A LINE FEED? 
: KEX 
Pad, LF 
RESTORE TRA RAP VECTOR 
G0 TO NEXT HSKP FUNCTION 


;BYPASS REST OF THIS FUNCTION 
RETURN AFTER THIS TRAP 


;LF_TERMINATOR ON DATE REPLY? 
;DATE LF TERMINATOR FLAG 


?N, Y-RELGBL 
ISSUE TITLE & FIRST REQ MSG 


GET REPLY 8 CONVERT TO BINARY 
‘ERROR? (N, Y-S$) 
sDATA RECEIVED? 


OR ALL MPG EXECUTIVES MACY11 27(732) 
TIME HOUSEKEEPING 
.IF OF MIMIC 
ib 
ass: ov 8MPGBGN, RO 
’ 85S: MOV #"MA, MPGID 
HOV 8MPGBGN, RO 
IF DF DEBUG 
IFF 
BIT 877,RO 
IFT 
nOV ROCA 
.IF OF DEBUG 
“IFF 
BIC #77,RO 
ADD #100, RO 
ate’ #7777, RO 
ADD #10000, RO 
. ENDC 
SUB R1,RO 
MOV : 
ADD RO’ MPGST 
.IF NOF MIMIC 
ADD RO, 
.ENDC 
MMCKRT: CMPB = R3, #04 
BLO go 
MOVB (R2)+,R3 
BR MMCKRT 
90S: CMPB  R3.80le 
BNE MMCKEX 
INC DATELF 
MMCKEX: MOV #6. 084 
BR CTCONS 
MMTRAP: MOV #MMCKEX, (SP) 
RTI 
sREQUEST CONSOLE TERMINAL CONSTANTS CHANGE 
CTCONS: TST (PC)+ 
DATELF: .WORD 0 
BNE ELGBL 
Ss: ISR S,MES 
.WORD CONIMG 
JSR PC, OATOB 
BR c$ 
TST RO 
BEQ 10$ 
MOV Ri. CTFID 
10S:  CMPB #Ol2e,R3 


‘STORE LN NEW I.D. CHAR 
‘LINE FEED TERMINATOR? 


SEQ 0316 | 


1-DTECA-B _ COMMON SECTION 
MPG EXEC TEMPORARY 
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HOUSEKEEPING 
BEQ RELGBL :N, Y-RELGBL 
1S$: JSR RS, MES ISSUE SECOND MSG 
J 08 ;GET REPLY & CONVERT 
BR is$ “ERROR? (N, Y-15S) 
Ist RO sDATA RECEIVED? 
MOV 1, CTFCAR tea Renew FILL CHAR 
20S: CMPB sole R3 iLINE FEED TERMINATOR? 
ess: fia. Re col Tete EAP HSC 
.WORD  CON3MG 
JSR PC, OATCB GET REPLY 8 CONVERT 
BR ess ERROR? (N, Y-25S) 
TST RO ;DATA 3 
BEQ 30S :Y, N= 
MOV R1, CTFCNT *STORE NEW FILL CNT 
308:  cMPB s#0l2.R3 ;LINE TERMINATOR? 
BEQ RELGBL Y-REL 
35$: JSR RS, MES iT ecuE LOWER CASE MSG 
JSR , RS, CTRD ; ISSUE RD FOR REPLY 
. WORD EKYBUF -. 
"WORD el. 
JSR PC CKRPLY :GO CHECK THE REPLY 
BR 35$ :BR IF INV DATA 
BR GBL ‘BR IF Y, «CRD 
Mov AS, Re NO, SET uP ADR OF ther’ S TO WIPE OUT 
SOS: MOV #240, (R2)+ : CLEAR INST” S TO NOP’S 
DEC R3 
BNE 
;RELOCATE EXEC INTERFACE ADR’S 
RELGBL: MOV #EGBLTE, RO :GET END oF INTERFACE ADR’S TBL 
Rov CMH, AL GBLTS/2,Re ies 
MOV Re BENT +r oae 2 pO cl HSKP EXTENSION 
85S: MOV ~(RO),-(R1) :ST ADA AT TOP OF 
DEC sDECR ESS ON 
BNE ss : STORED (Y N-85S) 
MOV R1, ESGADR : STORE ADR OF OF STORED ADR’S 
.IF DF MIMIC 
:DISPLAY SLEEP BREAKPOINT ADDRESS 
DSBKPT: MOV SSLPBKP,R1 :GET OF BREAKPOINT INST 


:GET ADR I 
MOV PAD’ Re :GET ADR OF MSG AREA 
JSR Be OR TOA EVE ADR Q BIN pur IN MSG 


et 
of 


7A 
8 


nee = es ee es ee 


SS ee ee. 


BE Snn gD Res ae RATERS eae 


-o 


setelseteteis 
WO ICU £ U) 


Soe aRREBR OSES SANE SRES 


oe 
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I 
EXEC TEMPORARY ONE 
+ FOUSEKEEPING EXIT 


000240 EXHKEX: MOV #240, -(RS) ;SET CALLING JSR TO NOP’S 
ey (RS),-(RS) 
RTS RS ;EXIT IN-LINE 
_ KBPTR: . KYBUF s KE YBOoRO TA BUFFER POINTER 
KYBUF: .BL at: ;e1 BYTE Key BUF FE 

-BYTE iS 

000000 000000 LIMIT: .LIMIT sONGC ep en 8 END AOR -- 

; TAIL BY THE LNKX11 PROGRAM 


-IF DF MIMIC 


SBKPMG: .ASCII <015><Ol2e>/SLEEP BKPT = / 
SBKPAD:  Boelz AXXXXXX/«(015><O12> 


-SBTTL ROUTINE THAT CREATES DISK FOR MIMIC DEBUGGING 


RKER= 177402 

RKCS= 177404 

RKWC= 177406 

RKBA= 177410 

RKDA= 177412 
DISKWR: MOV 837744, RE s INITIALIZE STACK POINTER 

HOV Ngee. :GET f C+MPG ADR 

NEG : i NEGATIVE 

MOV RO, (PC)+ “STORE IT AS EXEC’S WORD COUNT 
a ens aeRKWC T TO 1 BLOCK 

CLR 3 P ier et, 

eee kcs TE Ee aSTS cero 
1U$: TST aakKCS : TE 

BMI 40$ :N et 

TSTB © a8RKCS : DONE BIT SET? 

10$ sY,Nel 
MOV ESIZE, J@RKWC *SET UP EXEC’S WORD COUNT 
R re sagt AOR_TO 

MOV saebeRece” T ¢ WRITE DATA CMNO 
20$: TST BRKCS ‘ bRSUe rf SET? 

BM 3N.Y 

TSTB cs :DONE BIT SET? 

20$ sY Wee 
RESET :CLE R EVERYTHING 
HAL “FINISHED CREATING DISK 


;ERROR ENCOUNTERED 





(Oe = RE ESRD Oe ER REED eee 


NAINTDEC-11-DTECA-B COMMON SECTI 


DTECAB.P11 


MPG EXEC TEMPORARY 


00c 


ION FOR 
ONE 


ALL MPG EXECUTIVES MACYL1 27(732) 
TIME HOUSEKEEPING 
40S: CLR Re 
BR 60S 
che; BY SaAxE ro 
MOV TERKER: RI 
MOV #1, a8RKCS 
HALT 
gR DISKWR 
ENDC 


24-SEP-76 13:56 PAGE 26-7 


;SET FLAG TO THIS ENTRY POINT 


iBive conta. Srktvs 
leas cat CONTROLLER RESET CHNO 


] 


SEQ 0320 


24-SEP-76 13:56 PAGE 26-8 


DO6 


MACY11 27(732) 


mn a i a oe sr ie a os eo 8 eee 


COMMON SECTION FOR ALL MPG EXECUTIVES 


MPG“EXEC INTERFACE ADDRESSES TABLE 


| MAINTDEC-11-OTECA-B 


| OTECAB.P11 


;ALIGN TO NEXT 32 WORD BNORY 


-SBTTL MPG/EXEC INTERFACE ADDRESSES TABLE 


eae se es See. 
- Sh en 
‘SRSSSSS SS SGuueES GSN = §  (SOGREEE Higa 


ue 
a 
at 
ee 
i Ba: 
oo3S4e2’ 
000536’ 
001424’ 
901 
Ode 
00! 
908 





Sonsnsiaeinss 


MAINTDEC-11-DTECA-B _ COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 26-9 SEG 032i 
DTECAB.P11 MPG/EXEC INTERFACE ADDRESSES TABLE 


gil) 001424" EXCEND =. 
sti 000000" END EXECST 


nee ee TT 
TT SS 


: 
| 


| 


FO6 


MACY11 27(732) 


; MAINTDEC-11-DTECA-B 


24-SEP-76 13:56 PAGE 27 


COMMON SECTION FOR ALL MPG EXECUTIVES 


SYMBOL TABLE 


| DTECAB. P11 


sas perro rere i onetime 


ae ce Gas oe 
Scpoeiuek OyePSEP Big er sepusan tees? 


Beare EErepe rere sires eee 


esaictateccfetetcicteietetatacctesctafetetepetspete pers tete teeta pete tetetepetsteiete peepee teat 








ace 


88 883 8 S8SSSssses 8 SRSSRSRRkss ssssssssssssssss 


ego 38o0" 


eerie i ee 


oe ee rere mee ae 


Ses Seees S888 88 SSSS8S888 88 S888 88 Ssssee 8 8 


ee es ee 


ee ee ee pein 


OQVOOVOV VO Hebe Reh REE EERE ERE EPEPESERrEESe 


SSSSSSSSS8S888 8 S8S88888 8 SB888 8888 Ssssesssssess 


eo eee eee 


ae a, Seeseetpci Fe a cOSERVErenbrenet iin: 





eA See ear ee 


Ee feintafetecsferstete 


SEQ 0323 
003 


90909090909 090969 


ee 
SaeBeb OSes dees oeertete tise Eiteans chon 


. 

? geggggggss 888 sgauyypeseey gegqus 
iR vo o « 
s BS co gtE BEE ae 
: ee ee pcan 
‘ af ops © voces bemogagi Fe Pe ais 
2 SBS888 SSBSSsssssegsssssssssgssssssesegssss 
: 


iat fotetnntetnintntnsehntniritn testa pt topeteeteg 
2000000 OOOO BHO OOR00000000000 


Eoade Speers dadecbeniastenerBPeetesheg 9s 


Qaaaaaanaaaanaaaaaaaa f&ooaaoa £0.00. 


foteseccfetafecctutetetetasetese tapered fetneteferetetetceteteteie tote state 


obo lee ia Eel earseR Ses zac uaqute GRBs 


SBSSSR SSSR SE SESESRSREREEEESSSBEESESEEES — gaunzn 


ce Te Tee) 


a ee ae 


SEE Ebetaspehend eee teceecetaca TEE © Bfk 


os gi antl oom Sadar Roca Silage 


SYMBOL TABLE 


-11-DTECA-B COMMON SECTION FOR ALL MPG EXECUTIVES 


np 


, OTEC 


| MAIN 


0 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 
#, OTECAB/NL: TOC/DOC=DTECAB.Fil 


MAINTDEC-11-DTECA-B COMMON SECTION FOR ALL MPG EXECUTIVES MACY11 27(732) 24-SEP-76 13:56 PAGE 27-2 SEQ 0324 
DTECAB.P11 SYMBOL TABLE 


RUN-TIME: 9.19 1 SECONDS 

RUN-TIME RATIO: S4/30=1.7 

CORE USED: 6K (11 PAGES) 
? 





L rime € ae igk write 
ec tm wee, FR, d.. 
oe ASESEAAST SRIDUDDDODDUDOOUCUUUUUOUOOUUUOOUDOUDUCTOL C00 AANA 
5 lal lie 





ee ee 


CUUCUEBCUUTTOTECUCECEOCTUCE OS GATE ' 1 saaanaasyasoo ua uooconcrcon ccc accountant coco ose TTT 


toot eoeoooo oo oe 


QOOCCOOG LLL ePPeer rrr 333333333. Sooo ee SSS bb bb665 RPOnNNAEORaaaggsessGcnnnnnnn’ noiITt 


—— 106 
| 


| 
| 
| 
| 


